- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Wed, 07 Jan 2009 22:04:25 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv19146
Modified Files:
check
Log Message:
Get rid of nonstrict vars in override_doctype.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.635
retrieving revision 1.636
diff -u -d -r1.635 -r1.636
--- check 7 Jan 2009 22:02:42 -0000 1.635
+++ check 7 Jan 2009 22:04:23 -0000 1.636
@@ -1740,7 +1740,6 @@
#
# Suppress any existing DOCTYPE by commenting it out.
sub override_doctype {
- no strict 'vars';
my $File = shift;
my ($dt) =
@@ -1755,7 +1754,7 @@
$pubid = undef if ($pubid eq 'HTML5');
# We don't have public/system ids for all types.
- local $dtd = "<!DOCTYPE $name";
+ my $dtd = "<!DOCTYPE $name";
if ($pubid) {
$dtd .= qq( PUBLIC "$pubid");
$dtd .= qq( "$sysid") if $sysid;
@@ -1765,10 +1764,10 @@
}
$dtd .= '>';
- local $org_dtd = '';
- local $HTML = '';
- local $seen_doctype = FALSE;
- local $seen_root = FALSE;
+ my $org_dtd = '';
+ my $HTML = '';
+ my $seen_doctype = FALSE;
+ my $seen_root = FALSE;
my $declaration = sub {
my ($tag, $text) = @_;
Received on Wednesday, 7 January 2009 22:04:36 UTC