diff options
| -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); |