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

[commits+preining at tug.org]

Revision: 54643
          http://tug.org/svn/texlive?view=revision&revision=54643
Author:   preining
Date:     2020-04-11 02:19:37 +0200 (Sat, 11 Apr 2020)
Log Message:
-----------
tlmgr shell: make sure not to die in machine readable on remote load error

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	2020-04-10 23:54:27 UTC (rev 54642)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2020-04-11 00:19:37 UTC (rev 54643)
@@ -6625,8 +6625,16 @@
         init_local_db();
         print "OK\n";
       } elsif ($what eq "remote") {
-        init_tlmedia_or_die();
-        print "OK\n";
+        my ($ret, $err) = init_tlmedia();
+        if ($ret) {
+          print("OK\n");
+        } else {
+          if ($::machinereadable) {
+            # replace \n with \\n to get single line
+            $err =~ s/\n/\\n/g;
+          }
+          print("ERROR $err\n");
+        }
       } else {
         print "ERROR can only load 'local' or 'remote', not $what\n";
       }