diff options
| author | Norbert Preining <preining@logic.at> | 2018-08-04 02:51:30 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2018-08-04 02:51:30 +0000 |
| commit | 66876f28648ceb8478f85ed381d8e1125bc47af9 (patch) | |
| tree | ceba09b74ca370fc75b5e7252c4f599308e677e8 /Master/tlpkg/TeXLive/TLUtils.pm | |
| parent | 42a0838d9761e37d38675811a7c91b2acbe10671 (diff) | |
more program setup debug output
git-svn-id: svn://tug.org/texlive/trunk@48344 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 590f74dc1d8..5c96d1aeb95 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2460,12 +2460,14 @@ sub setup_one { 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"); $::progs{$p} = $p; return(1); } else { + debug("program $p not usable from path\n"); return(0); } } @@ -2478,6 +2480,7 @@ sub setup_windows_tl_one { 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 { |