texlive[48344] Master/tlpkg/TeXLive/TLUtils.pm: more program setup

[commits+preining at tug.org]

Revision: 48344
          http://tug.org/svn/texlive?view=revision&revision=48344
Author:   preining
Date:     2018-08-04 04:51:30 +0200 (Sat, 04 Aug 2018)
Log Message:
-----------
more program setup debug output

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2018-08-04 00:18:08 UTC (rev 48343)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2018-08-04 02:51:30 UTC (rev 48344)
@@ -2460,6 +2460,7 @@
 sub setup_system_one {
   my ($p, $arg) = @_;
   my $nulldev = nulldev();
+  debug("trying to set up system $p, arg $arg\n");
   my $ret = system("$p $arg >$nulldev 2>&1");
   if ($ret == 0) {
     debug("program $p found in the path\n");
@@ -2466,6 +2467,7 @@
     $::progs{$p} = $p;
     return(1);
   } else {
+    debug("program $p not usable from path\n");
     return(0);
   }
 }
@@ -2478,6 +2480,7 @@
     my $prog = conv_to_w32_path($def);
     my $ret = system("$prog $arg >nul 2>&1"); # on windows
     if ($ret == 0) {
+      debug("Using shipped $def for $p (tested).\n");
       $::progs{$p} = $prog;
       return(1);
     } else {