texlive[45017] Master/texmf-dist/scripts/texlive/tlmgr.pl: remove

[commits+preining at tug.org]

Revision: 45017
          http://tug.org/svn/texlive?view=revision&revision=45017
Author:   preining
Date:     2017-08-11 07:09:53 +0200 (Fri, 11 Aug 2017)
Log Message:
-----------
remove some output in machine readable mode

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-08-11 04:28:20 UTC (rev 45016)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-08-11 05:09:53 UTC (rev 45017)
@@ -3476,7 +3476,7 @@
   # 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 @@
   $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) {