texlive[47762] Master/texmf-dist/scripts/texlive/tlmgr.pl: make

commits+preining at tug.org commits+preining at tug.org
Sat May 19 01:47:11 CEST 2018


Revision: 47762
          http://tug.org/svn/texlive?view=revision&revision=47762
Author:   preining
Date:     2018-05-19 01:47:11 +0200 (Sat, 19 May 2018)
Log Message:
-----------
make compressor mode default to xz, but selectable via TEXLIVE_COMPRESSOR

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2018-05-18 23:47:04 UTC (rev 47761)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2018-05-18 23:47:11 UTC (rev 47762)
@@ -2136,12 +2136,21 @@
     if ($clean_mode) {
       clear_old_backups ($pkg, $opts{"backupdir"}, $opts{"clean"}, $opts{"dry-run"}, 1);
     } else {
-      my $compressorextension = $TeXLive::TLConfig::CompressorExtension{'lz4'};
+      # for now default to xz and allow overriding with env var
+      my $compressor = "xz";
+      if ($ENV{'TEXLIVE_COMPRESSOR'}) {
+        if (TeXLive::TLUtils::member($ENV{'TEXLIVE_COMPRESSOR'}, @TeXLive::TLConfig::AcceptedCompressors)) {
+          $compressor = $ENV{'TEXLIVE_COMPRESSOR'};
+        } else {
+          tlwarn("$prog: unknown compressor in TEXLIVE_COMPRESSOR=$ENV{'TEXLIVE_COMPRESSOR'}, falling back to xz\n");
+        }
+      }
+      my $compressorextension = $TeXLive::TLConfig::CompressorExtension{$compressor};
       my $tlp = $localtlpdb->get_package($pkg);
       info("saving current status of $pkg to $opts{'backupdir'}/${pkg}.r" .
         $tlp->revision . ".tar.$compressorextension\n");
       if (!$opts{"dry-run"}) {
-        $tlp->make_container("lz4", $localtlpdb->root,
+        $tlp->make_container($compressor, $localtlpdb->root,
                              $opts{"backupdir"}, "${pkg}.r" . $tlp->revision);
       }
     }



More information about the tex-live-commits mailing list