[patch] cosmetic fixes for -w option

This is cosmetic fixes to reduce warnings from perl -w option.


Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.66
diff -u -u -r1.66 check
--- check	2000/06/30 20:33:50	1.66
+++ check	2000/09/05 03:52:07
@@ -347,6 +347,7 @@
     $xmlflags            .= '-wno-valid ';
   }
   $decl                  = $xhtmldecl;
+  $catalog = "";
 } elsif ($guessed_doctype == 2) { # no doctype, with xmlns attr on 1st element
   $File->{Type} = 'xml';	# @@ probably a better way to do this
   $ENV{SGML_CATALOG_FILES} = $sgmlstuff . '/sp-1.3/pubtext/xml.soc';
@@ -425,7 +426,8 @@
 }
 
 print ' ' x 4, q(<li>Character encoding: ), $File->{Charset};
-if ($File->{HTTP_Charset} ne $File->{META_Charset}
+if (defined $File->{HTTP_Charset} and defined $File->{META_Charset}
+    and $File->{HTTP_Charset} ne $File->{META_Charset}
     and $File->{HTTP_Charset} ne ''
     and $File->{META_Charset} ne ''
     and $File->{Charset} ne 'unknown') {
@@ -1082,7 +1084,7 @@
 
 sub build_jump_links {
 
-    my $text;
+    my $text = "";
     my $count = 0;
 
     $count++ if $q->param('ss');


-- 
Jun Kuriyama <kuriyama@imgsrc.co.jp> // IMG SRC, Inc.
             <kuriyama@FreeBSD.org> // FreeBSD Project

Received on Tuesday, 5 September 2000 01:19:34 UTC