summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-10-18 11:39:05 +0000
committerNorbert Preining <preining@logic.at>2008-10-18 11:39:05 +0000
commit040e7d7fdac0c0cd30ee97e69a9167f1ceee9aac (patch)
treebfdcee3a4b5cddfaa237f9cd1e00b492e4f1d2fd /Master/tlpkg/TeXLive/TLPDB.pm
parent593a1d493a247512008e550a15236b6d97ce8cc8 (diff)
fix two stupid bugs in texlive.tlpdb.lzma downloading
git-svn-id: svn://tug.org/texlive/trunk@11006 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm6
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);