From f29e4020ca7c40be095b4cbf6c2b434a487a8391 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 11 Aug 2017 05:09:53 +0000 Subject: remove some output in machine readable mode git-svn-id: svn://tug.org/texlive/trunk@45017 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Master') 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) { -- cgit v1.2.3