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/TeXLive/TLPOBJ.pm | |
| 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/TeXLive/TLPOBJ.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 9 |
1 files changed, 5 insertions, 4 deletions
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") { |