diff options
| author | Norbert Preining <preining@logic.at> | 2009-07-23 22:22:57 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-07-23 22:22:57 +0000 |
| commit | a76e10d09c8cfe7d7586ff8ca2f0e35ab11c7d5a (patch) | |
| tree | 1e50f75014e4cae3c8a9ee52e96a5936db963e43 /Master/texmf/scripts | |
| parent | b3fbe286e0b43f9781c4fd3279972ab5eceaae47 (diff) | |
make sure that we do not replace a full path given with mirror.ctan.org
with our fixed tlnet location, but replace only the initial mirror.ctan.org
with a mirror
git-svn-id: svn://tug.org/texlive/trunk@14415 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts')
| -rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index c3782e4b9de..dd2e3321b23 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -3084,7 +3084,9 @@ sub init_tlmedia # choose a mirror if we are asked. if ($location =~ m,^($TeXLiveServerURL|ctan$),) { - $location = give_ctan_mirror(); + 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 |