texlive[41455] Master/install-tl: install-tl: check for -x of program

[commits+preining at tug.org]

Revision: 41455
          http://tug.org/svn/texlive?view=revision&revision=41455
Author:   preining
Date:     2016-06-15 03:41:40 +0200 (Wed, 15 Jun 2016)
Log Message:
-----------
install-tl: check for -x of program instead of tetex package install

Modified Paths:
--------------
    trunk/Master/install-tl

Modified: trunk/Master/install-tl
===================================================================
--- trunk/Master/install-tl	2016-06-15 01:15:19 UTC (rev 41454)
+++ trunk/Master/install-tl	2016-06-15 01:41:40 UTC (rev 41455)
@@ -926,6 +926,7 @@
   my $plat_bindir = "$TEXDIR/bin/$vars{'this_platform'}";
   my $perl_bindir = "$TEXDIR/tlpkg/tlperl/bin";
   my $perl_libdir = "$TEXDIR/tlpkg/tlperl/lib";
+  my $progext = (win32)? '.exe' : '';
 
   debug("Prepending $plat_bindir to PATH\n");
   $ENV{'PATH'} = $plat_bindir . $pathsep . $ENV{'PATH'};
@@ -1008,7 +1009,7 @@
   $errcount += wsystem("running", "mktexlsr",
                        $TEXMFSYSVAR, $TEXMFSYSCONFIG, "$TEXDIR/texmf-dist");
 
-  if (exists($install{"tetex"}) && $install{"tetex"} == 1) {
+  if (-x "$plat_bindir/updmap-sys$progext") {
     $errcount += run_postinst_cmd("updmap-sys --nohash");
   } else {
     info("not running updmap-sys (not installed)\n");
@@ -1037,7 +1038,7 @@
 
   # all formats option
   if ($vars{'option_fmt'}) {
-    if (exists($install{"tetex"}) && $install{"tetex"} == 1) {
+    if (-x "$plat_bindir/fmtutil-sys$progext") {
       info("pre-generating all format files, be patient...\n");
       $errcount += run_postinst_cmd("fmtutil-sys $common_fmtutil_args --all");
     } else {