Eliminate a couple of warnings.

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();
   }