From bfbad93cc11f0df7d50ac654fd8ee48d4badeaee Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 28 Apr 2016 18:04:38 +0000 Subject: xzdec rather than un-xz git-svn-id: svn://tug.org/texlive/trunk@40801 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPDB.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index fe1196aaf5c..f851b7ec036 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -330,12 +330,12 @@ sub from_file { # better to check both, the return value AND the existence of the file if ($ret && (-r "$xzfile")) { # ok, let the fun begin - debug("un-xzing $xzfile to $tlpdbfile\n"); + debug("xzdec-ing $xzfile to $tlpdbfile\n"); # xzdec *hopefully* returns 0 on success and anything else on failure # we don't have to negate since not zero means error in the shell # and thus in perl true if (system("$xzdec <$xzfile_quote >$tlpdbfile_quote")) { - debug("un-xzing $xzfile failed, trying plain file\n"); + debug("$xzdec $xzfile failed, trying plain file\n"); # to be sure we unlink the xz file and the tlpdbfile unlink($xzfile); } else { @@ -421,7 +421,7 @@ sub from_file { $self->{'verified'} = $is_verified; - # remove the un-xz-ed tlpdb file from temp dir + # remove the xzdec-ed tlpdb file from temp dir # THAT IS RACY!!! we should fix that in some better way with tempfile close($retfh); unlink($tlpdbfile) if $tlpdbfile; -- cgit v1.2.3