diff options
author | Norbert Preining <preining@logic.at> | 2008-12-19 01:59:23 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-12-19 01:59:23 +0000 |
commit | 98df4d516bde4d019a085f043fe519cc3e487102 (patch) | |
tree | fb4801f77eb347798afb63cbf92811bd0cabc739 /Master/texmf | |
parent | e8916ee7a95cff91fc784877c59d253468ae2936 (diff) |
make machine-readable from tlmgr2 use URL: ... on STDOUT
git-svn-id: svn://tug.org/texlive/trunk@11649 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf')
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr2.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr2.pl b/Master/texmf/scripts/texlive/tlmgr2.pl index d42666751d5..c98f5f4dcd2 100755 --- a/Master/texmf/scripts/texlive/tlmgr2.pl +++ b/Master/texmf/scripts/texlive/tlmgr2.pl @@ -2436,10 +2436,12 @@ sub init_tlmedia { if ($location =~ m/^($TeXLiveServerURL|ctan$)/) { $location = give_ctan_mirror(); } - # WARNING WARNING WARNING - # DO NOT CHANGE THE TEXT IN THE FOLLOWING INFO WITHOUT THINKING TWICE - # AND AVERTING ALL THE GUI WRITERS!!! + # that "URL: $location should not be changed since GUI programs + # might depend on it. In case of $::machinereadable all the info + # output is also going to STDERR + print "URL: $location\n" if $::machinereadable; info("tlmgr: installation location $location\n"); + # $tlmediasrc is a global variable $tlmediasrc = TeXLive::TLMedia->new($location); $tlmediatlpdb = $tlmediasrc->tlpdb; |