diff --git a/lib/HTTP/Entity/Parser.pm b/lib/HTTP/Entity/Parser.pm index 2aae780..7d8f6f7 100644 --- a/lib/HTTP/Entity/Parser.pm +++ b/lib/HTTP/Entity/Parser.pm @@ -110,7 +110,7 @@ sub parse { } my $loaded = substr $chunk_buffer, 0, $chunk_len, ''; $parser->add($loaded); - $buffer->print($loaded); + $buffer->print($loaded) if $buffer; $chunk_buffer =~ s/^\015\012//; $length += $chunk_len; }