summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-12-19 01:59:23 +0000
committerNorbert Preining <preining@logic.at>2008-12-19 01:59:23 +0000
commit98df4d516bde4d019a085f043fe519cc3e487102 (patch)
treefb4801f77eb347798afb63cbf92811bd0cabc739 /Master/texmf
parente8916ee7a95cff91fc784877c59d253468ae2936 (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-xMaster/texmf/scripts/texlive/tlmgr2.pl8
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;