> 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});
             }
         }
     }

Reply via email to