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

validator/httpd/cgi-bin check,1.565,1.566

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Tue, 11 Sep 2007 06:45:41 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1IUzVF-0002z2-0s@lionel-hutz.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 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:54:59 GMT