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

Reply via email to