diff options
| author | Norbert Preining <preining@logic.at> | 2009-07-23 22:36:01 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-07-23 22:36:01 +0000 |
| commit | bb5fa9c4cb3cb9eaa61b1f9b8314ca21d3678040 (patch) | |
| tree | 7b0bddc62a9f1a2cfacee6427323a01cbbfd6eec /Master/texmf | |
| parent | ba2012d21d337bd2e2ea84a703419897cc698434 (diff) | |
more fixes to the new handling of the mirror
git-svn-id: svn://tug.org/texlive/trunk@14417 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index dd2e3321b23..945647da37b 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -3083,10 +3083,11 @@ sub init_tlmedia } # choose a mirror if we are asked. - if ($location =~ m,^($TeXLiveServerURL|ctan$),) { + if ($location =~ m/^ctan$/i) { + $location = give_ctan_mirror(); + } elsif ($location =~ m,^$TeXLiveServerURL,) { my $mirrorbase = TeXLive::TLUtils::give_ctan_mirror_base(); $location =~ s,^$TeXLiveServerURL,$mirrorbase,; - #$location = give_ctan_mirror(); } # this "location-url" line should not be changed since GUI programs |