validator/httpd/cgi-bin check,1.362,1.363

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv5462

Modified Files:
	check 
Log Message:
do not crash for schemes that do not support host() like data:

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.362
retrieving revision 1.363
diff -u -d -r1.362 -r1.363
--- check	19 Nov 2004 07:12:24 -0000	1.362
+++ check	20 Nov 2004 09:09:38 -0000	1.363
@@ -1196,7 +1196,7 @@
     return $File;
   }
 
-  unless ($CFG->{'Allow Private IPs'}) {
+  unless ($CFG->{'Allow Private IPs'} or !$uri->can('host')) {
     my $addr = my $iptype = undef;
     if (my $host = gethostbyname($uri->host())) {
       $addr = inet_ntoa($host->addr()) if $host->addr();

Received on Saturday, 20 November 2004 09:09:41 UTC