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

validator/httpd/cgi-bin check,1.343,1.344

From: Martin Duerst <duerst@dev.w3.org>
Date: Wed, 22 Sep 2004 00:46:14 +0000
To: www-validator-cvs@w3.org
Message-ID: <E1C9vGw-0005SA-NV@lionel-hutz.w3.org>

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv17678

Modified Files:
	check 
Log Message:
removed charset code from preparse_doctype

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.343
retrieving revision 1.344
diff -u -d -r1.343 -r1.344
--- check	22 Sep 2004 00:40:40 -0000	1.343
+++ check	22 Sep 2004 00:46:12 -0000	1.344
@@ -1887,13 +1887,11 @@
 
 #
 # Do an initial parse of the Document Entity to extract FPI.
-# (still also extracts charset)
 sub preparse_doctype {
   my $File = shift;
 
   #
-  # Reset DOCTYPE, Root, and Charset (for second invocation).
-  $File->{Charset}->{META} = '';
+  # Reset DOCTYPE, Root (for second invocation, probably not needed anymore).
   $File->{DOCTYPE}         = '';
   $File->{Root}            = '';
 
@@ -1908,13 +1906,6 @@
     my %attr = map {lc($_) => $attr->{$_}} keys %{$attr};
 
     if ($File->{Root}) {
-      if (lc $tag eq 'meta') {
-        if (lc $attr{'http-equiv'} eq 'content-type') {
-          if ($attr{content} =~ m(charset\s*=[\s\"\']*([^\s;\"\'>]*))si) {
-            $File->{Charset}->{META} = lc $1;
-          }
-        }
-      }
       return unless $tag eq $File->{Root};
     } else {
       $File->{Root} = $tag;
Received on Wednesday, 22 September 2004 00:46:15 UTC

This archive was generated by hypermail 2.4.0 : Friday, 17 January 2020 23:02:07 UTC