Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

minor nits in cpan-mirrors

  • Loading branch information...
commit 479376dcf261af33c015bf3976b57dc1c8e085b8 1 parent cddf708
@briandfoy briandfoy authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 scripts/cpan-mirrors
View
4 scripts/cpan-mirrors
@@ -11,14 +11,14 @@ $mirrors->parse_mirrored_by( $mirrored_by_file );
my $seen = {};
-my $best_continent = $mirrors->find_best_continent( { seen => $seen } );
+my $best_continent = $mirrors->find_best_continents( { seen => $seen } );
my @mirrors = $mirrors->get_mirrors_by_continents( $best_continent );
my $callback = sub {
my( $m ) = @_;
printf "%s = %s ms\n", $m->hostname, 1000 * $m->rtt
};
-@sorted_mirrors = $mirrors->get_mirrors_timings( \@mirrors, $seen, $callback );
+my @sorted_mirrors = $mirrors->get_mirrors_timings( \@mirrors, $seen, $callback );
print "Best mirrors are ",
join ' ', map( $_->hostname, @sorted_mirrors[0..3] ),
Please sign in to comment.
Something went wrong with that request. Please try again.