perl/modules/W3C/LinkChecker/bin checklink,4.49,4.50

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

Modified Files:
	checklink 
Log Message:
Use add_link() for recording DTD URLs for consistency.

Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.49
retrieving revision 4.50
diff -u -d -r4.49 -r4.50
--- checklink	30 Mar 2007 19:47:23 -0000	4.49
+++ checklink	30 Mar 2007 20:13:53 -0000	4.50
@@ -1363,7 +1363,7 @@
       # Store the doctype
       $self->doctype($1) if $1;
       # If there is a link to the DTD, record it
-      $self->{Links}{$3}{$line}++ if (!$self->{only_anchors} && $3);
+      $self->add_link($3, $line) if (!$self->{only_anchors} && $3);
     }
   }
 

Received on Friday, 30 March 2007 20:14:04 UTC