You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by st...@apache.org on 2003/01/24 07:59:49 UTC
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);