diff options
| author | Karl Berry <karl@freefriends.org> | 2008-07-05 17:29:44 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2008-07-05 17:29:44 +0000 |
| commit | c543c36c9d172891dc6eab731e44c76464d98676 (patch) | |
| tree | af2b13a102bfdddc2a8409056ab20d8436ec46ee /Master/install-tl | |
| parent | c54a9dca22b83a6f4e91234dad93f701e81257fe (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-x | Master/install-tl | 1 |
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(); |