W3C home > Mailing lists > Public > www-validator@w3.org > September 2000

[patch] cosmetic fixes for -w option

From: Jun Kuriyama <kuriyama@imgsrc.co.jp>
Date: Mon, 4 Sep 2000 23:56:23 -0400 (EDT)
Message-ID: <7maednbigu.wl@waterblue.imgsrc.co.jp>
To: www-validator@w3.org
Cc: Jun Kuriyama <kuriyama@imgsrc.co.jp>

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 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Wednesday, 25 April 2012 12:13:54 GMT