| … | |
… | |
| 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 | |
