On 6/18/05 8:24 AM, "Joe Schaefer" <[EMAIL PROTECTED]> wrote:
> [EMAIL PROTECTED] writes:
>
>> Ah, I swear I just copied the code from mod_perl's t/ directory. Maybe
>> that's changed since.
>
> We're all learning as we go :-)
Ok, my turn to learn, where I have:
while (!$bb->is_empty) {
my $b = $bb->first;
$b->remove;
$b->read(my $newdata);
$data .= $newdata;
return $data if index($data, "\n") >= 0;
}
It should really just be:
while (!$bb->is_empty) {
my $b = $bb->first;
$b->read(my $newdata);
$data .= $newdata;
return $data if index($data, "\n") >= 0;
}
peter