… | |
… | |
719 | my $on_body = $arg{on_body} || sub { $body .= shift; 1 }; |
719 | my $on_body = $arg{on_body} || sub { $body .= shift; 1 }; |
720 | |
720 | |
721 | $_[0]->on_error (sub { $finish->(undef, 599 => $_[2]) }); |
721 | $_[0]->on_error (sub { $finish->(undef, 599 => $_[2]) }); |
722 | |
722 | |
723 | my $read_chunk; $read_chunk = sub { |
723 | my $read_chunk; $read_chunk = sub { |
724 | warn $_[1];#d# |
|
|
725 | $_[1] =~ /^([0-9a-fA-F]+)/ |
724 | $_[1] =~ /^([0-9a-fA-F]+)/ |
726 | or $finish->(undef, 599 => "Garbled chunked transfer encoding"); |
725 | or $finish->(undef, 599 => "Garbled chunked transfer encoding"); |
727 | |
726 | |
728 | my $len = hex $1; |
727 | my $len = hex $1; |
729 | |
728 | |