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