Fix braino from the backport of proto_allowed patch. Thanks to "aamcf"!

1 files changed, 5 insertions, 5 deletions

diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check
index 9d57049..5c847a2 100755
--- a/httpd/cgi-bin/check
+++ b/httpd/cgi-bin/check
@@ -9,7 +9,7 @@
 # This source code is available under the license at:
 #     http://www.w3.org/Consortium/Legal/copyright-software
 #
-# $Id: check,v 1.201 2002-06-16 03:38:47 link Exp $
+# $Id: check,v 1.202 2002-06-22 16:35:58 link Exp $
 
 #
 # We need Perl 5.004.
@@ -95,9 +95,9 @@ my $element_ref = 'http://www.htmlhelp.com/reference/html40/';
 
 #
 # Strings
-$VERSION    =  q$Revision: 1.201 $;
+$VERSION    =  q$Revision: 1.202 $;
 $VERSION    =~ s/Revision: ([\d\.]+) /$1/;
-$DATE       =  q$Date: 2002-06-16 03:38:47 $;
+$DATE       =  q$Date: 2002-06-22 16:35:58 $;
 $MAINTAINER =  'gerald@w3.org';
 $NOTICE     =  ''; # "<p><strong>Note: This service will be ...</strong>";
 
@@ -1194,7 +1194,7 @@ sub handle_uri {
   my $q    = shift; # The CGI object.
   my $File = shift; # The master datastructure.
 
-  my $uri = $q->param('uri'); # The URI to fetch.
+  my $uri = new URI $q->param('uri'); # The URI to fetch.
 
   my $ua = new LWP::UserAgent;
   $ua->agent("W3C_Validator/$VERSION " . $ua->agent);
@@ -1205,7 +1205,7 @@ sub handle_uri {
   #   or at least make it configurable to do so.
   #   eg. /^(localhost(\.localdomain)?|127\..+)$/ (+ private networks)
   #
-  $ua->protocols_allowed($CFG->{'Allowed Protocols'} || ['http', 'https']);
+  $ua->protocols_allowed(['http', 'https']);
 
   unless ($ua->is_protocol_supported($uri)) {
     $File->{'Error Flagged'} = TRUE;