summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-05-18 23:47:11 +0000
committerNorbert Preining <preining@logic.at>2018-05-18 23:47:11 +0000
commit3a86322b73c7a5688f1eba0f5edebd42255ff294 (patch)
tree648dce872be64098e8f6537f6f825cef6367bdc4
parent8a183473880d35d01df3cc03402814a03a0bc131 (diff)
make compressor mode default to xz, but selectable via TEXLIVE_COMPRESSOR
git-svn-id: svn://tug.org/texlive/trunk@47762 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl13
1 files changed, 11 insertions, 2 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index 51b1679effe..c514931693e 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -2136,12 +2136,21 @@ sub action_backup {
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);
}
}