summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm8
1 files changed, 8 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index ca1d1100931..e0e5db16dfe 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -630,6 +630,14 @@ sub make_container {
tlwarn("$0: programs not set up, trying \"tar\".\n");
$tar = "tar";
}
+
+ # determine compressor:
+ # * first try the one passed in as requested
+ # * if that one is not available, fall back to xz
+ if ($type ne "xz" && !defined($::progs{$CompressorProgram{$type}})) {
+ debug("$0: compressor of type $type not available, falling back to xz\n");
+ $type = "xz";
+ }
my $compressor = $::progs{$CompressorProgram{$type}};
my @compressorargs = @{$CompressorArgs{$type}};
my $compressorextension = $CompressorExtension{$type};