W3C home > Mailing lists > Public > www-validator-cvs@w3.org > March 2011

link-checker commit: Weed out duplicate canonical URLs before distributing links.

From: Mercurial notifier <nobody@w3.org>
Date: Tue, 29 Mar 2011 19:13:10 +0000
Message-Id: <E1Q4eLm-0000Tv-NL@mcbain.w3.org>
To: link-checker updates <www-validator-cvs@w3.org>
changeset:   396:2f338aa935af
tag:         tip
user:        Ville Skyttä <ville.skytta@iki.fi>
date:        Tue Mar 29 22:13:03 2011 +0300
files:       bin/checklink
description:
Weed out duplicate canonical URLs before distributing links.


diff -r db4d0fe63d96 -r 2f338aa935af bin/checklink
--- a/bin/checklink	Mon Mar 28 23:49:07 2011 +0300
+++ b/bin/checklink	Tue Mar 29 22:13:03 2011 +0300
@@ -1233,9 +1233,12 @@
         my $canon_uri = URI->new($abs_link_uri->canonical());
         my $fragment  = $canon_uri->fragment(undef);
         if (!defined($Opts{Exclude}) || $canon_uri !~ $Opts{Exclude}) {
-            my $hostport =
-                $canon_uri->can('host_port') ? $canon_uri->host_port() : '';
-            push(@{$hostlinks{$hostport}}, $canon_uri);
+            if (!exists($links{$canon_uri})) {
+                my $hostport =
+                    $canon_uri->can('host_port') ? $canon_uri->host_port() :
+                                                   '';
+                push(@{$hostlinks{$hostport}}, $canon_uri);
+            }
             for my $line_num (keys(%$lines)) {
                 if (!defined($fragment) || !length($fragment)) {
 
Received on Tuesday, 29 March 2011 19:13:12 UTC

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:45 UTC