diff options
author | Norbert Preining <preining@logic.at> | 2008-08-04 09:21:59 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-08-04 09:21:59 +0000 |
commit | 4b556a15b0966c849cf33a3e35b4274065d4b847 (patch) | |
tree | b8c20f814f9e4ba3dea30176be5044824af114f7 /Master | |
parent | c70dfa6fc0c7ffab32d91030416b7e62812cdab6 (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')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 1 |
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"); |