> Well, it gets my vote. If it were to be an argument, it would have to > be stripped out of @_ before being passed through to LWP, which sounds > like it could get messy.
ok, give this a whirl and see if it works for you. --Geoff
Index: Apache-Test/lib/Apache/TestRequest.pm =================================================================== RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm,v retrieving revision 1.93 diff -u -r1.93 TestRequest.pm --- Apache-Test/lib/Apache/TestRequest.pm 28 Nov 2003 18:19:45 -0000 1.93 +++ Apache-Test/lib/Apache/TestRequest.pm 18 Feb 2004 15:38:45 -0000 @@ -3,7 +3,10 @@ use strict; use warnings FATAL => 'all'; -BEGIN { $ENV{PERL_LWP_USE_HTTP_10} = 1; } #default to http/1.0 +BEGIN { + $ENV{PERL_LWP_USE_HTTP_10} ||= 1; # default to http/1.0 + $ENV{APACHE_TEST_HTTP_09_OK} ||= 0; # make 0.9 an option +} use Apache::Test (); use Apache::TestConfig (); @@ -438,7 +441,8 @@ $error = "response had no protocol (is LWP broken or something?)"; } if ($1 ne "1.0" && $1 ne "1.1") { - $error = "response had protocol HTTP/$1 (headers not sent?)"; + $error = "response had protocol HTTP/$1 (headers not sent?)" + unless ($1 eq "0.9" && $ENV{APACHE_TEST_HTTP_09_OK}); } } }