… | |
… | |
36 | |
36 | |
37 | =cut |
37 | =cut |
38 | |
38 | |
39 | package AnyEvent::HTTP; |
39 | package AnyEvent::HTTP; |
40 | |
40 | |
41 | use strict; |
41 | use common::sense; |
42 | no warnings; |
|
|
43 | |
42 | |
44 | use Errno (); |
43 | use Errno (); |
45 | |
44 | |
46 | use AnyEvent 5.0 (); |
45 | use AnyEvent 5.0 (); |
47 | use AnyEvent::Util (); |
46 | use AnyEvent::Util (); |
… | |
… | |
777 | }; |
776 | }; |
778 | |
777 | |
779 | $ae_error = 597; # body phase |
778 | $ae_error = 597; # body phase |
780 | |
779 | |
781 | my $len = $hdr{"content-length"}; |
780 | my $len = $hdr{"content-length"}; |
782 | warn "no content $redirect x<$len>$hdr{Status}\n";#d# |
|
|
783 | |
781 | |
784 | # body handling, many different code paths |
782 | # body handling, many different code paths |
785 | # - no body expected |
783 | # - no body expected |
786 | # - want_body_handle |
784 | # - want_body_handle |
787 | # - te chunked |
785 | # - te chunked |