- From: Jun Kuriyama <kuriyama@imgsrc.co.jp>
- Date: Mon, 4 Sep 2000 23:56:23 -0400 (EDT)
- 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 UTC