diff options
author | Karl Berry <karl@freefriends.org> | 2011-09-15 00:23:09 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-09-15 00:23:09 +0000 |
commit | 5cf9db40ce398d1b14f3f6eb5828fac53ce81aff (patch) | |
tree | 47d9cc45f7ce9664fe94234429a38d2a18cc5e78 | |
parent | d5f1327ab362980bce84f768fab6f93842e93bd1 (diff) |
(create_mirror_list): align mirror in column
except for too-long country names.
git-svn-id: svn://tug.org/texlive/trunk@23962 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index fe903182484..5e9e631998c 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3503,7 +3503,8 @@ sub create_mirror_list { $mfull =~ s!/$!!; $mfull .= "/" . $TeXLive::TLConfig::TeXLiveServerPath; #if ($first) { - push @ret, " $country $mfull"; + my $country_str = sprintf "%-12s", $country; + push @ret, " $country_str $mfull"; # $first = 0; #} else { # push @ret, " $mfull"; |