optimize: test-links.pl: avoid testing duplicate links.

xiaocang · Sep 1, 2020 · 39ffde4 · 39ffde4
1 parent 49330b1
commit 39ffde4
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/v2/util/test-links.pl b/v2/util/test-links.pl
@@ -3,10 +3,16 @@
 use strict;
 use warnings;
 
+my %seen_links;
+
 my $i = 0;
 
 sub test_link ($) {
     my $link = shift;
+
+    return if $seen_links{$link};
+    $seen_links{$link} = 1;
+
     return if $link =~ /\b(?:foo|example|blah)\.com\b/ || /\bmybackend\b/;
     my $out = `curl -I -sS '$link'`;
     #print "$link\n";