summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-08-04 02:51:30 +0000
committerNorbert Preining <preining@logic.at>2018-08-04 02:51:30 +0000
commit66876f28648ceb8478f85ed381d8e1125bc47af9 (patch)
treeceba09b74ca370fc75b5e7252c4f599308e677e8 /Master/tlpkg/TeXLive/TLUtils.pm
parent42a0838d9761e37d38675811a7c91b2acbe10671 (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.pm3
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 {