diff options
| author | Norbert Preining <preining@logic.at> | 2008-07-31 14:26:24 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-07-31 14:26:24 +0000 |
| commit | 2527eda5307ca536f4bd29c4b3ef233cec3b7f02 (patch) | |
| tree | 889ec01730e7235c1e76d90d746e394cd4263b15 /Master | |
| parent | 057fa5720078a3d0c0ad1f67d7a8f7865aa9ab77 (diff) | |
TLPDB: the un-lzma-ing always succeeds if we test on the unpacked file which
was generated by a >! Stupid error. We now check the return code of lzmadec.
Let us hope that win32 will return true/false ...
git-svn-id: svn://tug.org/texlive/trunk@9938 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 24636e2e7ba..2db071c352b 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -219,8 +219,8 @@ sub from_file { if ($ret && (-r "$lzmafile")) { # ok, let the fun begin debug("Un-lzmaing $lzmafile to $tlpdbfile\n"); - system("$::progs{'lzmadec'} < $lzmafile_quote > $tlpdbfile_quote"); - if (! -r $tlpdbfile) { + # lzmadec *hopefully* returns 0 on success and anything else on failure + if (!system("$::progs{'lzmadec'} < $lzmafile_quote > $tlpdbfile_quote")) { debug("Un-lzmaing $lzmafile did not succeed, try normally\n"); } else { unlink($lzmafile); |