jerenkrantz 02/01/01 22:12:19
Modified: perl-framework/t/http11 chunked.t Log: LWP 5.61 silently morphs Transfer-Encoding to Client-Transfer-Encoding. The extra || seems to be the convention for other LWPisms. Thanks to Google: http://archive.develooper.com/[email protected]/msg03162.html Revision Changes Path 1.14 +3 -1 httpd-test/perl-framework/t/http11/chunked.t Index: chunked.t =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/t/http11/chunked.t,v retrieving revision 1.13 retrieving revision 1.14 diff -u -r1.13 -r1.14 --- chunked.t 6 Dec 2001 23:00:26 -0000 1.13 +++ chunked.t 2 Jan 2002 06:12:19 -0000 1.14 @@ -38,7 +38,9 @@ ok $res->protocol eq 'HTTP/1.1'; - my $enc = $res->header('Transfer-Encoding') || ''; + my $enc = $res->header('Transfer-Encoding') || + $res->header('Client-Transfer-Encoding') || #lwp 5.61+ + ''; ok $enc eq 'chunked'; ok ! $res->header('Content-Length');
