- From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
- Date: Tue, 11 Sep 2007 06:45:41 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv11251
Modified Files:
check
Log Message:
Making doctype detection work with document types using dashes or dots
in root element (allowed in XML, at least).
This fixes Bug 5031: http://www.w3.org/Bugs/Public/show_bug.cgi?id=5031
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.565
retrieving revision 1.566
diff -u -d -r1.565 -r1.566
--- check 11 Sep 2007 05:58:30 -0000 1.565
+++ check 11 Sep 2007 06:45:38 -0000 1.566
@@ -1844,7 +1844,7 @@
my $dtd = sub {
return if $File->{Root};
# TODO: The \s and \w are probably wrong now that the strings are utf8_on
- ($File->{Root}, $File->{DOCTYPE}) = shift =~ m(<!DOCTYPE\s+(\w+)\s+(?:PUBLIC|SYSTEM)\s+(?:[\'\"])([^\"\']+)(?:[\"\']).*>)si;
+ ($File->{Root}, $File->{DOCTYPE}) = shift =~ m(<!DOCTYPE\s+(\w[\w\.-]+)\s+(?:PUBLIC|SYSTEM)\s+(?:[\'\"])([^\"\']+)(?:[\"\']).*>)si;
};
my $start = sub {
Received on Tuesday, 11 September 2007 06:45:45 UTC