On Tuesday, April 19, 2011 10:59:45 Joe Orton wrote: > + # force HTTP/1.0 to work around LWP 6.x bug > + $req->protocol('HTTP/1.0');
At least for libwww-perl/6.02 that does not help. It sends HTTP/1.1 no matter what. Here is a way that works, although very ugly: Index: t/modules/proxy.t =================================================================== --- t/modules/proxy.t (revision 1094356) +++ t/modules/proxy.t (working copy) @@ -29,6 +29,13 @@ ok t_cmp($r->content, "abcdef", "reverse proxied to dripfeed CGI content OK"); if (have_min_apache_version('2.1.0')) { + # force HTTP/1.0 to work around LWP 6.x bug + no warnings 'redefine'; + local *LWP::Protocol::http::_check_sock = sub { + $_[2]->http_version('1.0'); + #use Data::Dumper; warn Dumper \@_, \%{*{$_[2]}}; + return; + }; $r = GET("/reverse/modules/cgi/nph-102.pl"); ok t_cmp($r->code, 200, "reverse proxy to nph-102"); ok t_cmp($r->content, "this is nph-stdout", "reverse proxy 102 response"); Torsten Förtsch -- Need professional modperl support? Hire me! (http://foertsch.name) Like fantasy? http://kabatinte.net