);
if ($archive =~ /\.tar(\.[^.]+)?$/) {
if (defined($1)) {
- @compression_opt = $compression_map{$1}
- or die "unrecognized compression format: $1\n";
+ die "unrecognized compression format: $1\n" if (!defined($compression_map{$1}));
+ @compression_opt = $compression_map{$1};
}
} else {
die "file does not look like a template archive: $archive\n";