diff options
Diffstat (limited to 'extract_archive')
-rwxr-xr-x | extract_archive | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/extract_archive b/extract_archive index cdd98da..7bee205 100755 --- a/extract_archive +++ b/extract_archive @@ -197,10 +197,10 @@ sub main { #- compute closure. @file = compute_closure(@file); - #- check all file given are in the archive before continuing. - foreach (@file) { $data{$_} or die "unable to find file $_ in archive $archivename\n"; } - foreach my $file (@file) { + #- check for presence of file, but do not abort, continue with others. + $data{$_} or print STDERR "unable to find file $_ in archive $archivename\n"; + my $newfile = "$dir/$file"; print "extracting $file\n"; |