texlive[45520] Master/texmf-dist/scripts/texlive/tlmgr.pl: tlmgr: do

[commits+preining at tug.org]

Revision: 45520
          http://tug.org/svn/texlive?view=revision&revision=45520
Author:   preining
Date:     2017-10-11 17:27:32 +0200 (Wed, 11 Oct 2017)
Log Message:
-----------
tlmgr: do not warn on disk blabla when 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-10-11 00:59:10 UTC (rev 45519)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-10-11 15:27:32 UTC (rev 45520)
@@ -3266,14 +3266,15 @@
   # 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") if (!$::machinereadable);
-    if ($remotetlpdb->media ne "NET"
-        && $remotetlpdb->media ne "virtual"
-        && !$opts{"dry-run"}
-        && !$opts{"repository"}
-        && !$ENV{"TEXLIVE_INSTALL_ENV_NOCHECK"}
-       ) {
-      tlwarn(<<END_DISK_WARN);
+    if (!$::machinereadable) {
+      info("$prg: no updates available\n");
+      if ($remotetlpdb->media ne "NET"
+          && $remotetlpdb->media ne "virtual"
+          && !$opts{"dry-run"}
+          && !$opts{"repository"}
+          && !$ENV{"TEXLIVE_INSTALL_ENV_NOCHECK"}
+        ) {
+        tlwarn(<<END_DISK_WARN);
 $prg: Your installation is set up to look on the disk for updates.
 To install from the Internet for this one time only, run:
   tlmgr -repository $TeXLiveURL ACTION ARG...
@@ -3282,6 +3283,7 @@
 To change the default for all future updates, run:
   tlmgr option repository $TeXLiveURL
 END_DISK_WARN
+      }
     }
   }
   return ($ret);