- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Thu, 25 May 2006 15:13:25 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv23374
Modified Files:
checklink
Log Message:
Extract system IDs also from doctype declarations that have no public part.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.33
retrieving revision 4.34
diff -u -d -r4.33 -r4.34
--- checklink 25 May 2006 14:11:02 -0000 4.33
+++ checklink 25 May 2006 15:13:22 -0000 4.34
@@ -1324,7 +1324,7 @@
($declaration[0] eq 'DOCTYPE') &&
(lc($declaration[1]) eq 'html')) {
# Parse the doctype declaration
- $text =~ m/^DOCTYPE\s+html\s+PUBLIC\s+\"([^\"]*)\"(\s+\"([^\"]*)\")?\s*$/i;
+ $text =~ m/^DOCTYPE\s+html\s+(?:PUBLIC\s+"([^"]+)"|SYSTEM)(\s+"([^"]+)")?\s*$/i;
# Store the doctype
$self->doctype($1) if $1;
# If there is a link to the DTD, record it
Received on Thursday, 25 May 2006 15:13:32 UTC