summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-07-23 22:22:57 +0000
committerNorbert Preining <preining@logic.at>2009-07-23 22:22:57 +0000
commita76e10d09c8cfe7d7586ff8ca2f0e35ab11c7d5a (patch)
tree1e50f75014e4cae3c8a9ee52e96a5936db963e43 /Master/texmf
parentb3fbe286e0b43f9781c4fd3279972ab5eceaae47 (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')
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl4
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