diff options
author | Norbert Preining <preining@logic.at> | 2018-05-18 23:46:56 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2018-05-18 23:46:56 +0000 |
commit | aa4149b03f457733741370e4914fc1510e0c408b (patch) | |
tree | 577b4b575b39e1a788df2ca9c3664b53becc6154 /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | a5eb764bf2b6f48b060a238df33fe168b049df57 (diff) |
more work on multiple compressor support
git-svn-id: svn://tug.org/texlive/trunk@47760 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 8 |
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}; |