xzdec rather than un-xz

git-svn-id: svn://tug.org/texlive/trunk@40801 c570f23f-e606-0410-a88d-b1316a301751

1 files 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;