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

[stas]

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