diff options
| author | Karl Berry <karl@freefriends.org> | 2018-06-05 22:35:41 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2018-06-05 22:35:41 +0000 |
| commit | 74ed76f3faa97cee22dc1328e6c6a7ee54acf51c (patch) | |
| tree | 23c448fef8a92202604f7764d395195c32b7e2b0 /Master/tlpkg | |
| parent | 3d89235fbd3a405daae94b73824e1027973566e8 (diff) | |
TLConfig.pm (AcceptedCompressors): move lz4 to end, it's writing
to stdout (sometimes?).
TLPOBJ.pm (make_container): compute other compressor values after
possible fallback.
git-svn-id: svn://tug.org/texlive/trunk@47934 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLConfig.pm | 2 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 9 |
2 files changed, 6 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLConfig.pm b/Master/tlpkg/TeXLive/TLConfig.pm index c60396a3aca..0328d51d2b1 100644 --- a/Master/tlpkg/TeXLive/TLConfig.pm +++ b/Master/tlpkg/TeXLive/TLConfig.pm @@ -131,7 +131,7 @@ our %FallbackDownloaderArgs = ( our $DefaultCompressorFormat = "xz"; our $DefaultContainerExtension = "tar.$DefaultCompressorFormat"; # mind that the order here is important as gives also the preference! -our @AcceptedCompressors = qw/lz4 gzip xz/; +our @AcceptedCompressors = qw/xz gzip lz4/; our $AcceptedCompressorsRegexp = "(xz|lz4|gzip)"; our %CompressorProgram = ( 'xz' => 'xz', 'gzip' => 'gzip', 'lz4' => 'lz4'); our %CompressorExtension = ( 'xz' => 'xz', 'gzip' => 'gz', 'lz4' => 'lz4'); diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 72a72b95feb..a0f3f10d675 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -719,15 +719,16 @@ sub make_container { if ($type ne 'tar') { # compress it my $compressor = $::progs{$CompressorProgram{$type}}; - my @compressorargs = @{$CompressorArgs{$type}}; - my $compressorextension = $CompressorExtension{$type}; - $containername = "$tarname.$compressorextension"; - debug("selected compressor: $compressor with @compressorargs\n"); if (!defined($compressor)) { # fall back to $type as compressor, but that shouldn't happen tlwarn("$0: programs not set up, trying \"$type\".\n"); $compressor = $type; } + my @compressorargs = @{$CompressorArgs{$type}}; + my $compressorextension = $CompressorExtension{$type}; + $containername = "$tarname.$compressorextension"; + debug("selected compressor: $compressor with @compressorargs, " + . "on $destdir/$tarname\n"); # compress it. if (-r "$destdir/$tarname") { |