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

[commits+preining at tug.org]

Revision: 46009
          http://tug.org/svn/texlive?view=revision&revision=46009
Author:   preining
Date:     2017-12-07 02:54:36 +0100 (Thu, 07 Dec 2017)
Log Message:
-----------
tlmgr: only run various scripts when luatex.dll can be found for wrapper

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-12-07 01:22:58 UTC (rev 46008)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-12-07 01:54:36 UTC (rev 46009)
@@ -776,10 +776,16 @@
   if ($opts{"dry-run"}) {
     $ret = $F_OK;
     $out = "";
+  } elsif (win32() && (! -r "$Master/bin/win32/luatex.dll")) {
+    # deal with the case where only scheme-infrastructure is installed
+    # on Windows, thus no luatex.dll is available and the wrapper cannot be started
+    tlwarn("Cannot run wrapper due to missing luatex.dll\n");
+    $ret = $F_OK;
+    $out = "";
   } else {
     ($out, $ret) = TeXLive::TLUtils::run_cmd("$cmd 2>&1");
   }
-  if ($ret == 0) {
+  if ($ret == $F_OK) {
     info("done running $cmd.\n");
     ddebug("--output of $cmd:\n$out\n--end of output of $cmd.");
     return ($F_OK);