diff options
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") { |