- From: Terje Bless <link@hutz.w3.org>
- Date: Sun, 09 May 2004 15:56:56 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv15496/httpd/cgi-bin
Modified Files:
check
Log Message:
Merging from branch validator-0_6_0-branch, at tag validator-0_6_5-release.
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.325
retrieving revision 1.326
diff -u -d -r1.325 -r1.326
--- check 12 Nov 2003 21:20:38 -0000 1.325
+++ check 9 May 2004 15:56:53 -0000 1.326
@@ -29,7 +29,7 @@
use warnings;
#
-# Modules.
+# Modules. See also the BEGIN block further down below.
#
# Version numbers given where we absolutely need a minimum version of a given
# module (gives nicer error messages). By default, add an empty import list
@@ -37,10 +37,10 @@
# polluting our namespace.
#
[...1224 lines suppressed...]
+ $File->{Content} = &main::normalize_newlines($File->{Bytes},
+ &main::exact_charset($File, $File->{Charset}->{Use}));
+ $File = &main::preparse($File);
+ unless ($File->{Charset}->{Use}) {
+ $File->{Charset}->{Use} = $File->{Charset}->{META};
+ }
+ $File->{Type} = 'xhtml+xml' if $File->{DOCTYPE} =~ /xhtml/i;
+ $File->{Type} = 'mathml+xml' if $File->{DOCTYPE} =~ /mathml/i;
+ $File = &main::parse($File);
+ if ($File->{'Is Valid'}) {
+ return $File->{ESIS};
+ } else {
+ return $File->{Errors};
+# return join '', map {"$_->{line}:$_->{char}:$_->{msg}\n"} @{$File->{Errors}};
+ }
+}
+
# Local Variables:
# mode: perl
# indent-tabs-mode: nil
Received on Sunday, 9 May 2004 11:57:45 UTC