texlive[48358] Master/texmf-dist/scripts/texlive: tlmgr: only run

[commits+preining at tug.org]

Revision: 48358
          http://tug.org/svn/texlive?view=revision&revision=48358
Author:   preining
Date:     2018-08-06 03:30:01 +0200 (Mon, 06 Aug 2018)
Log Message:
-----------
tlmgr: only run mtxrun when luatex is available (custom-bin support)

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

Modified: trunk/Master/texmf-dist/scripts/texlive/NEWS
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/NEWS	2018-08-06 00:18:05 UTC (rev 48357)
+++ trunk/Master/texmf-dist/scripts/texlive/NEWS	2018-08-06 01:30:01 UTC (rev 48358)
@@ -9,8 +9,8 @@
 <li>prefer system provided binaries over TL provided binaries for
   compressor and download programs.
 <li>save alias information from TeX Catalogue.
+<li>only run mtxrun if luatex is available.
 
-
 <p><b>tlmgr 47951 (released 07jun18):</b>
 <li>Backup removal for non-xz.
 

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2018-08-06 00:18:05 UTC (rev 48357)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2018-08-06 01:30:01 UTC (rev 48358)
@@ -10,6 +10,7 @@
 my $tlmgrrevision;
 my $tlmgrversion;
 my $prg;
+my $bindir;
 if ($svnrev =~ m/: ([0-9]+) /) {
   $tlmgrrevision = $1;
 } else {
@@ -46,7 +47,7 @@
   # Unix-specific problems with use as library will probably go undetected.
 
   # make subprograms (including kpsewhich) have the right path:
-  my ($bindir, $kpsewhichname);
+  my $kpsewhichname;
   if ($^O =~ /^MSWin/i) {
     # on w32 $0 and __FILE__ point directly to tlmgr.pl; they can be relative
     $Master = __FILE__;
@@ -848,7 +849,8 @@
 
   if ($::files_changed) {
     $errors += do_cmd_and_check("mktexlsr");
-    if (defined($localtlpdb->get_package('context'))) {
+    if (defined($localtlpdb->get_package('context'))
+	    && (-x "$bindir/luatex" || -x "$bindir/luatex.exe")) {
       $errors += do_cmd_and_check("mtxrun --generate");
     }
     $::files_changed = 0;