Buffer not being initialized & used correctly

[horus]

In file HTTP/Entity/Parser.pm L72

    my $buffer;
    if ($env->{'psgix.input.buffered'}) {
        # Just in case if input is read by middleware/apps beforehand
        $input->seek(0, 0);
    } else {
        $buffer = Stream::Buffered->new();
    }

later around L117:

       my $loaded = substr $chunk_buffer, 0, $chunk_len, ''; 
       $parser->add($loaded);
       $buffer->print($loaded);
       $chunk_buffer =~ s/^\015\012//;
       $length += $chunk_len;

If I understand the code correctly, when psgix.input.buffered is defined, the $buffer would not be initialized.

It should be checked before using, like L89:

    $buffer->print($chunk) if $buffer;

Otherwise, in some cases it will croak:

Can't call method "print" on an undefined value at /perl5/lib/perl5/HTTP/Entity/Parser.pm line 117

Hope this will be fixed soon, thank you!