cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRequest.pm

[dougm]

dougm       02/04/02 09:47:00

  Modified:    perl-framework/Apache-Test/lib/Apache TestRequest.pm
  Log:
  add user_agent_keepalive wrapper to allow .t files to disable the
  -http11 switch for certain tests.
  
  Revision  Changes    Path
  1.70      +4 -0      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm
  
  Index: TestRequest.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm,v
  retrieving revision 1.69
  retrieving revision 1.70
  diff -u -r1.69 -r1.70
  --- TestRequest.pm    2 Apr 2002 03:52:30 -0000       1.69
  +++ TestRequest.pm    2 Apr 2002 17:47:00 -0000       1.70
  @@ -94,6 +94,10 @@
         $res->header('Client-Response-Num'); #lwp 5.62+
   }
   
  +sub user_agent_keepalive {
  +    $ENV{APACHE_TEST_HTTP11} = shift;
  +}
  +
   sub do_request {
       my($ua, $method, $url, $callback) = @_;
       my $r = HTTP::Request->new($method, resolve_url($url));