- From: Martin Duerst <duerst@dev.w3.org>
- Date: Wed, 22 Sep 2004 00:46:14 +0000
- To: www-validator-cvs@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