diff options
| -rwxr-xr-x | extract_archive | 4 |
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"; } } |