summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-08-04 09:21:59 +0000
committerNorbert Preining <preining@logic.at>2008-08-04 09:21:59 +0000
commit4b556a15b0966c849cf33a3e35b4274065d4b847 (patch)
treeb8c20f814f9e4ba3dea30176be5044824af114f7 /Master/tlpkg/TeXLive
parentc70dfa6fc0c7ffab32d91030416b7e62812cdab6 (diff)
TLUtils:setup_programs: give a hint what function has failed
git-svn-id: svn://tug.org/texlive/trunk@10066 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 0d2b9403783..77d9149c110 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1035,6 +1035,7 @@ sub setup_programs {
my $opt = $prog eq "lzmadec" ? "--help" : "--version";
my $ret = system("$::progs{$prog} $opt >$nul 2>$nul");
if ($ret != 0) {
+ tlwarn ("TeXLive::TLUtils::setup_programs failed:\n");
tlwarn ("$::progs{$prog} $opt failed (status $ret): $!\n");
tlwarn ("Output is:");
system ("$::progs{$prog} $opt");