diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 5b985616582..cc1d4943bcf 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -225,7 +225,7 @@ sub from_file { $tlpdbfile =~ s!/!\\!g; } $lzmafile_quote = "\"$lzmafile\""; - $tlpdbfile_quite = "\"$tlpdbfile\""; + $tlpdbfile_quote = "\"$tlpdbfile\""; debug("trying to download $path.lzma to $lzmafile\n"); my $ret = TeXLive::TLUtils::download_file("$path.lzma", "$lzmafile"); # better to check both, the return value AND the existence of the file @@ -233,7 +233,9 @@ sub from_file { # ok, let the fun begin debug("Un-lzmaing $lzmafile to $tlpdbfile\n"); # lzmadec *hopefully* returns 0 on success and anything else on failure - if (!system("$::progs{'lzmadec'} < $lzmafile_quote > $tlpdbfile_quote")) { + # we don't have to negate since not zero means error in the shell + # and thus in perl true + if (system("$::progs{'lzmadec'} < $lzmafile_quote > $tlpdbfile_quote")) { debug("Un-lzmaing $lzmafile did not succeed, try normally\n"); # to be sure we unlink the lzma file and the tlpdbfile unlink($lzmafile); |