texlive[45516] Master/texmf-dist/scripts/texlive/tlmgr.pl: only give

[commits+preining at tug.org]

Revision: 45516
          http://tug.org/svn/texlive?view=revision&revision=45516
Author:   preining
Date:     2017-10-10 04:52:08 +0200 (Tue, 10 Oct 2017)
Log Message:
-----------
only give critical warnings when not 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-10 00:22:03 UTC (rev 45515)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-10-10 02:52:08 UTC (rev 45516)
@@ -2379,7 +2379,7 @@
   }
   my $dry_run_cont = $opts{"dry-run"} && ($opts{"dry-run"} < 0);
   if ( !$dry_run_cont  && !$opts{"self"} && @critical) {
-    critical_updates_warning();
+    critical_updates_warning() if (!$::machinereadable);
     if ($opts{"force"}) {
       tlwarn("$prg: Continuing due to --force.\n");
     } elsif ($opts{"list"}) {
@@ -3359,7 +3359,7 @@
   # check for updates to tlmgr itself, and die unless --force is given
   if (!$opts{"usermode"}) {
     if (check_for_critical_updates( $localtlpdb, $remotetlpdb)) {
-      critical_updates_warning();
+      critical_updates_warning() if (!$::machinereadable);
       if ($opts{"force"}) {
         tlwarn("$prg: Continuing due to --force\n");
       } else {