- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 10 Feb 2008 18:22:39 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv17608
Modified Files:
checklink
Log Message:
Don't check <a name="..."> for XHTML Basic 1.1 or XHTML MP.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.92
retrieving revision 4.93
diff -u -d -r4.92 -r4.93
--- checklink 10 Feb 2008 18:13:59 -0000 4.92
+++ checklink 10 Feb 2008 18:22:37 -0000 4.93
@@ -1417,16 +1417,14 @@
$_ = $self->{doctype} = $dc;
# What to look for depending on the doctype
- $self->{check_name} = 0 if ($_ eq '-//W3C//DTD XHTML Basic 1.0//EN');
- # Check for the id tag
- if (
- # HTML 2.0 & 3.0
- m%^-//IETF//DTD HTML [23]\.0//% ||
- # HTML 3.2
- m%^-//W3C//DTD HTML 3\.2//%) {
- $self->{check_id} = 0;
- }
+ # Check for <a name="...">?
+ $self->{check_name} = 0
+ if m%^-//(W3C|WAPFORUM)//DTD XHTML (Basic|Mobile) %;
+
+ # Check for <* id="...">?
+ $self->{check_id} = 0
+ if (m%^-//IETF//DTD HTML [23]\.0//% || m%^-//W3C//DTD HTML 3\.2//%);
# Enable XML mode (XHTML, XHTML Mobile, XHTML-Print, XHTML+RDFa, ...)
$self->xml_mode(1) if (m%^-//(W3C|WAPFORUM)//DTD XHTML[ \-\+]%);
Received on Sunday, 10 February 2008 18:22:50 UTC