aboutsummaryrefslogtreecommitdiffstats
path: root/extract_archive
diff options
context:
space:
mode:
Diffstat (limited to 'extract_archive')
-rwxr-xr-xextract_archive4
1 files changed, 2 insertions, 2 deletions
diff --git a/extract_archive b/extract_archive
index 559d51b..62dac46 100755
--- a/extract_archive
+++ b/extract_archive
@@ -199,7 +199,7 @@ sub main {
foreach my $file (@file) {
#- check for presence of file, but do not abort, continue with others.
- $data{$file} or print STDERR "unable to find file $file in archive $archivename\n";
+ $data{$file} or do { print STDERR "unable to find file $file in archive $archivename\n"; next };
my $newfile = "$dir/$file";
@@ -214,7 +214,7 @@ sub main {
$extract_table{$data{$file}[1]}[0] == $data{$file}[2] or die "mismatched relocation in toc\n";
last;
};
- die "unknown extension $_ when uncompressing archive $archivename\n";
+ die "unknown extension \"$_\" when uncompressing archive $archivename\n";
}
}