httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestClient.pm
Date Mon, 30 Dec 2002 01:11:28 GMT
stas        2002/12/29 17:11:28

  Modified:    .        Changes
               perl-framework/Apache-Test/lib/Apache TestClient.pm
  Log:
  Support the Host: request header in Apache::TestClient
  
  Revision  Changes    Path
  1.90      +2 -0      modperl-2.0/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Changes,v
  retrieving revision 1.89
  retrieving revision 1.90
  diff -u -r1.89 -r1.90
  --- Changes	29 Dec 2002 10:11:49 -0000	1.89
  +++ Changes	30 Dec 2002 01:11:28 -0000	1.90
  @@ -10,6 +10,8 @@
   
   =item 1.99_08-dev
   
  +Support the Host: request header in Apache::TestClient [Stas]
  +
   restore the ModPerl::RegistryLoader::new() method for backwards
   compatibility  [Stas]
   
  
  
  
  1.4       +3 -1      httpd-test/perl-framework/Apache-Test/lib/Apache/TestClient.pm
  
  Index: TestClient.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestClient.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- TestClient.pm	23 Nov 2002 22:08:37 -0000	1.3
  +++ TestClient.pm	30 Dec 2002 01:11:28 -0000	1.4
  @@ -23,10 +23,12 @@
       $url     ||= '/';
       $headers ||= {};
   
  +    my $hostport = Apache::TestRequest::hostport($config);
  +    $headers->{Host} = (split ':', $hostport)[0];
  +
       my $s = Apache::TestRequest::vhost_socket();
   
       unless ($s) {
  -        my $hostport = Apache::TestRequest::hostport($config);
           warn "cannot connect to $hostport: $!";
           return undef;
       }
  
  
  

Mime
View raw message