summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-07-05 17:29:44 +0000
committerKarl Berry <karl@freefriends.org>2008-07-05 17:29:44 +0000
commitc543c36c9d172891dc6eab731e44c76464d98676 (patch)
treeaf2b13a102bfdddc2a8409056ab20d8436ec46ee /Master/install-tl
parentc54a9dca22b83a6f4e91234dad93f701e81257fe (diff)
ignore trailing /'s or trailing /tlpkg on -url.
git-svn-id: svn://tug.org/texlive/trunk@9275 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-xMaster/install-tl1
1 files changed, 1 insertions, 0 deletions
diff --git a/Master/install-tl b/Master/install-tl
index 99d10c04c3e..692fe8240cd 100755
--- a/Master/install-tl
+++ b/Master/install-tl
@@ -330,6 +330,7 @@ if ($opt_from_dvd and ($::_media_ ne "DVD")) {
$vars{'from_dvd'} = $opt_from_dvd;
setup_programs ("$::installerdir/tlpkg/installer", "$::_platform_");
+$opt_url =~ s,/(tlpkg)?/*$,, if $opt_url; # remove any trailing tlpkg or /
$TeXLiveURL = $opt_url || TeXLive::TLUtils::give_ctan_mirror();
info("Using URL $TeXLiveURL\n");
load_tlpdb();