- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Fri, 05 May 2006 19:40:40 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv31313
Modified Files:
checklink
Log Message:
Sort broken fragment line numbers numerically, not alphabetically.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.26
retrieving revision 4.27
diff -u -d -r4.26 -r4.27
--- checklink 5 May 2006 19:39:20 -0000 4.26
+++ checklink 5 May 2006 19:40:38 -0000 4.27
@@ -804,7 +804,7 @@
# List the broken fragments
foreach my $fragment (keys %{$links{$u}{fragments}}) {
if ($Opts{Verbose}) {
- my @frags = sort keys %{$links{$u}{fragments}{$fragment}};
+ my @frags = sort {$a<=>$b} keys %{$links{$u}{fragments}{$fragment}};
&hprintf("\t\t%s %s - Line%s: %s\n",
$fragment,
($results{$u}{fragments}{$fragment}) ? 'OK' : 'Not found',
Received on Friday, 5 May 2006 19:40:48 UTC