- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Tue, 20 Mar 2007 21:16:26 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv23247
Modified Files:
checklink
Log Message:
List line numbers of broken fragments only, not all fragment line numbers if one or more for a doc are broken.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.46
retrieving revision 4.47
diff -u -d -r4.46 -r4.47
--- checklink 20 Mar 2007 20:29:18 -0000 4.46
+++ checklink 20 Mar 2007 21:16:23 -0000 4.47
@@ -1674,7 +1674,7 @@
foreach my $l (keys %{$links->{$u}{location}}) {
push (@total_lines, $l);
}
- foreach my $f (keys %{$links->{$u}{fragments}}) {
+ foreach my $f (@fragments) {
next if ($f eq $u && defined($links->{$u}{$u}{LINE_UNKNOWN()}));
foreach my $l (keys %{$links->{$u}{fragments}{$f}}) {
push (@total_lines, $l);
Received on Tuesday, 20 March 2007 21:16:41 UTC