summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-07-31 14:26:24 +0000
committerNorbert Preining <preining@logic.at>2008-07-31 14:26:24 +0000
commit2527eda5307ca536f4bd29c4b3ef233cec3b7f02 (patch)
tree889ec01730e7235c1e76d90d746e394cd4263b15 /Master/tlpkg/TeXLive
parent057fa5720078a3d0c0ad1f67d7a8f7865aa9ab77 (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/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm4
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);