summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-06-11 06:39:31 +0000
committerNorbert Preining <preining@logic.at>2018-06-11 06:39:31 +0000
commit70f69030279e62dcb537a907268baa8677ea0655 (patch)
tree9ebc0592a8c82f6b3287d3a88458b9458e4dafe6 /Master/tlpkg/TeXLive
parentc5e4e23bcb43daa21ba747aa45206472ff6686fd (diff)
more fixes for code cleanup
git-svn-id: svn://tug.org/texlive/trunk@47987 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 5eca1e906df..cb81efe0bf2 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -2169,21 +2169,22 @@ sub unpack {
return (0, "nothing to unpack");
}
- my $decompressor;
+ my $decompressorType;
my $compressorextension;
if ($what =~ m/\.tar\.$CompressorExtRegexp$/) {
$compressorextension = $1;
- $decompressor = $1 eq "gz" ? "gzip" : $1;
+ $decompressorType = $1 eq "gz" ? "gzip" : $1;
}
- if (!$decompressor) {
+ if (!$decompressorType) {
return(0, "don't know how to unpack");
}
# make sure that the found uncompressor type is also available
- if (!member($decompressor, @{$::progs{'working_compressors'}})) {
- return(0, "unsupported container format $decompressor");
+ if (!member($decompressorType, @{$::progs{'working_compressors'}})) {
+ return(0, "unsupported container format $decompressorType");
}
# only check the necessary compressor program
+ my $decompressor = $::progs{$decompressorType};
my @decompressorArgs = @{$Compressors{$decompressor}{'decompress_args'}};
my $fn = basename($what);