diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rwxr-xr-x | extract_archive | 6 |
2 files changed, 8 insertions, 3 deletions
@@ -1,3 +1,7 @@ +2000-04-04 François Pons <fpons@mandrakesoft.com> + + * extract_archive: allow bad file in filelist, print error but continue. + 2000-03-31 François Pons <fpons@mandrakesoft.com> * genfilelist: new tool to build a filelist from a RPMS repository. @@ -5,6 +9,7 @@ 2000-03-28 Pixel <pixel@mandrakesoft.com> * gendepslist2.cc: fix silly bug + 2000-03-26 Pixel <pixel@mandrakesoft.com> * gendepslist2.cc: add ability to handle files (was only 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"; |