perl/modules/W3C/LinkChecker/bin checklink,4.43,4.44

Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv25669

Modified Files:
	checklink 
Log Message:
Fix anchor parsing in HTML 2.x and 3.x documents, http://lists.w3.org/Archives/Public/www-validator/2007Mar/0065

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.43
retrieving revision 4.44
diff -u -d -r4.43 -r4.44
--- checklink	25 Nov 2006 12:48:51 -0000	4.43
+++ checklink	20 Mar 2007 19:51:01 -0000	4.44
@@ -1286,7 +1286,7 @@
 {
   my ($self, $tag, $attr) = @_;
 
-  my $anchor = $attr->{id} if $self->{check_id};
+  my $anchor = $self->{check_id} ? $attr->{id} : undef;
   if ($self->{check_name} && ($tag eq 'a')) {
     # @@@@ In XHTML, <a name="foo" id="foo"> is mandatory
     # Force an error if it's not the case (or if id's and name's values

Received on Tuesday, 20 March 2007 19:51:08 UTC