diff options
author | Norbert Preining <preining@logic.at> | 2017-08-11 05:09:53 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2017-08-11 05:09:53 +0000 |
commit | f29e4020ca7c40be095b4cbf6c2b434a487a8391 (patch) | |
tree | e0b8e018dcfb5d3e0dfa33c3fe16119f07a66292 /Master/texmf-dist/scripts | |
parent | 0d6a47dd55e90359afe50b6652829136d1d3d364 (diff) |
remove some output in machine readable mode
git-svn-id: svn://tug.org/texlive/trunk@45017 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 4bee9c9d2d5..e3e1161892b 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -3476,7 +3476,7 @@ sub action_update { # warn if nothing is updated. Unless they said --self, in which case # we've already reported it. if (!(@new || @updated) && ! $opts{"self"}) { - info("$prg: no updates available\n"); + info("$prg: no updates available\n") if (!$::machinereadable); if ($remotetlpdb->media ne "NET" && $remotetlpdb->media ne "virtual" && !$opts{"dry-run"} @@ -6314,7 +6314,11 @@ END_NO_CHECKSUMS $remotetlpdb->virtual_pinning($pinfile); # this "location-url" line should not be changed since GUI programs # depend on it: - print "location-url\t$locstr\n" if $::machinereadable; + if ($::machinereadable) { + print "location-url\t$locstr\n"; + return 1; + } + # from here on only in non-machine-readable mode! info("$prg: package repositories\n"); my $verstat = ""; if (!$remotetlpdb->virtual_get_tlpdb('main')->is_verified) { |