Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm
Precedence: bulk
Reply-To: test-dev@httpd.apache.org
Date: 24 Jan 2003 06:59:49 -0000
Message-ID: <20030124065949.82973.qmail@icarus.apache.org>
From: stas@apache.org
To: httpd-test-cvs@apache.org
Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache
 TestRequest.pm

stas        2003/01/23 22:59:49

  Modified:    perl-framework/Apache-Test/lib/Apache TestRequest.pm
  Log:
  vefiry that $hostport is defined before doing operations on it and die
  with a useful error message otherwise
  
  Revision  Changes    Path
  1.74      +3 -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.73
  retrieving revision 1.74
  diff -u -r1.73 -r1.74
  --- TestRequest.pm	6 Nov 2002 12:28:09 -0000	1.73
  +++ TestRequest.pm	24 Jan 2003 06:59:49 -0000	1.74
  @@ -186,6 +186,9 @@
       local $Apache::TestRequest::Module = $module if $module;
   
       my $hostport = hostport(Apache::Test::config());
  +    die "can't find hostport for '$module',\n",
  +        "make sure that vhost_socket() was passed a valid module name"
  +            unless defined $hostport;
       my($host, $port) = split ':', $hostport;
       my(%args) = (PeerAddr => $host, PeerPort => $port);