diff options
| author | Norbert Preining <preining@logic.at> | 2011-09-17 07:40:33 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2011-09-17 07:40:33 +0000 |
| commit | 03fe8266f35acb30b86416f4c561943d568448f9 (patch) | |
| tree | 5abae246f749745c8e08b074f3111f7e260ee182 /Master/tlpkg/TeXLive | |
| parent | e13715544ca359147db6341e6fdab863420608ab (diff) | |
installer and mirror selection
- don't show the terminal /systems/texlive/tlnet
- allow for reselection in case of load failure
git-svn-id: svn://tug.org/texlive/trunk@23990 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 5e9e631998c..2af7b8d65fb 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3501,7 +3501,9 @@ sub create_mirror_list { for my $mirror (@mirrors) { my $mfull = $mirror; $mfull =~ s!/$!!; - $mfull .= "/" . $TeXLive::TLConfig::TeXLiveServerPath; + # do not append the server path part here, but add + # it down there in the extract mirror entry + #$mfull .= "/" . $TeXLive::TLConfig::TeXLiveServerPath; #if ($first) { my $country_str = sprintf "%-12s", $country; push @ret, " $country_str $mfull"; @@ -3520,7 +3522,7 @@ sub create_mirror_list { sub extract_mirror_entry { my $ent = shift; my @foo = split ' ', $ent; - return $foo[$#foo]; + return $foo[$#foo] . "/" . $TeXLive::TLConfig::TeXLiveServerPath; } sub tlmd5 { |