diff options
| -rwxr-xr-x | httpd/cgi-bin/check | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check index d5a19b0..b11cd25 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.231 2002-09-12 20:46:42 ville Exp $ +# $Id: check,v 1.232 2002-09-14 10:50:50 ville Exp $ # # Disable buffering on STDOUT! @@ -95,7 +95,7 @@ BEGIN { # # Strings - $VERSION = q$Revision: 1.231 $; + $VERSION = q$Revision: 1.232 $; $VERSION =~ s/Revision: ([\d\.]+) /$1/; @@ -151,7 +151,7 @@ $File->{'Header'} = &prepSSI({ }); $File->{'Footer'} = &prepSSI({ File => $CFG->{'Footer'}, - Date => q$Date: 2002-09-12 20:46:42 $, + Date => q$Date: 2002-09-14 10:50:50 $, }); # @@ -1924,10 +1924,11 @@ sub prepCGI { } # Supersede URI with an uploaded fragment. - if ($q->param('fragment')) {$q->param('uri', 'upload://Form Submission')}; + $q->param('uri', 'upload://Form Submission') if $q->param('fragment'); # Munge the URI to include commonly omitted prefix. - $q->param('uri', 'http://' . $q->param('uri')) if $q->param('uri') =~ m(^www)i; + my $u = $q->param('uri'); + $q->param('uri', "http://$u") if $u && $u =~ m(^www)i; # # Flag an error if we didn't get a file to validate. @@ -1969,7 +1970,7 @@ sub prepSSI { # Output errors for a rejected URI. sub uri_rejected { my $scheme = shift || 'undefined'; - unless ($scheme == 'undefined') { + unless ($scheme eq 'undefined') { $scheme = $scheme->scheme(); } |