diff options
| author | Karl Berry <karl@freefriends.org> | 2018-03-08 00:16:42 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2018-03-08 00:16:42 +0000 |
| commit | 34a8597760ab5740abd49b6d8be10e1876f5ce98 (patch) | |
| tree | 099a794912a28b3ebbc857961643ba29b28e674a /Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm | |
| parent | 2ca3610031316a7312d046d3ae4c783452831216 (diff) | |
(tl)perl 5.26.1 from siep
git-svn-id: svn://tug.org/texlive/trunk@46882 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm b/Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm index 37e7ce0ef9f..4ceca0458cc 100644 --- a/Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm +++ b/Master/tlpkg/tlperl/lib/CPAN/Mirrors.pm @@ -34,7 +34,7 @@ CPAN::Mirrors - Get CPAN mirror information and select a fast one package CPAN::Mirrors; use strict; use vars qw($VERSION $urllist $silent); -$VERSION = "1.9601"; +$VERSION = "2.12"; use Carp; use FileHandle; @@ -82,7 +82,7 @@ Return a list of continents based on those defined in F<MIRRORED.BY>. sub continents { my ($self) = @_; - return keys %{$self->{geography}}; + return sort keys %{$self->{geography}}; } =item countries( [CONTINENTS] ) @@ -99,7 +99,7 @@ sub countries { @continents = $self->continents unless @continents; my @countries; for my $c (@continents) { - push @countries, keys %{ $self->{geography}{$c} }; + push @countries, sort keys %{ $self->{geography}{$c} }; } return @countries; } |