diff options
| author | Norbert Preining <preining@logic.at> | 2016-04-24 05:25:14 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2016-04-24 05:25:14 +0000 |
| commit | 25cf105294b26a222c12d6649e8c00eb9fd78b6f (patch) | |
| tree | 6da259c227691bf0d4fa39da7cbde036de7e12ce /Master/texmf-dist/scripts | |
| parent | c5da23d16fecb4bffb0c444823de365fd9a90dc6 (diff) | |
don't disturb machine readable output
git-svn-id: svn://tug.org/texlive/trunk@40719 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 8ca99dabb80..725e253a818 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -5862,9 +5862,12 @@ sub _init_tlmedia { # this "location-url" line should not be changed since GUI programs # depend on it: - print "location-url\t$location\n" if $::machinereadable; - info("$prg: package repository $location (" . - ($remotetlpdb->is_verified ? "" : "not ") . "verified)\n"); + if ($::machinereadable) { + print "location-url\t$location\n"; + } else { + info("$prg: package repository $location (" . + ($remotetlpdb->is_verified ? "" : "not ") . "verified)\n"); + } return 1; } |