cvs commit: modperl-2.0/Apache-Test/lib/Apache TestRequest.pm

[dougm]

dougm       01/05/05 11:39:35

  Modified:    Apache-Test/lib/Apache TestRequest.pm
  Log:
  support a "default" vhost, which is simply the main server (normally port 8529)
  
  Revision  Changes    Path
  1.4       +4 -3      modperl-2.0/Apache-Test/lib/Apache/TestRequest.pm
  
  Index: TestRequest.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestRequest.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- TestRequest.pm    2001/04/19 21:21:18     1.3
  +++ TestRequest.pm    2001/05/05 18:39:35     1.4
  @@ -32,7 +32,8 @@
       my $hostport = $config->{hostport};
   
       if (my $module = $Apache::TestRequest::Module) {
  -        $hostport = $config->{vhosts}->{$module}->{hostport};
  +        $hostport = $config->{vhosts}->{$module}->{hostport}
  +          unless $module eq 'default';
       }
   
       $hostport;
  @@ -92,8 +93,8 @@
   }
   
   sub vhost_socket {
  -    my $module = shift;
  -    my $hostport = test_config()->{vhosts}->{$module}->{hostport};
  +    local $Apache::TestRequest::Module = shift;
  +    my $hostport = hostport(test_config());
       require IO::Socket;
       IO::Socket::INET->new($hostport);
   }