From 35985dc620eb38a6f7f028617cea43d48268a777 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 4 Apr 2000 11:14:33 +0000 Subject: *** empty log message *** --- ChangeLog | 5 +++++ extract_archive | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 969624a..b10643b 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2000-04-04 François Pons + + * extract_archive: allow bad file in filelist, print error but continue. + 2000-03-31 François Pons * genfilelist: new tool to build a filelist from a RPMS repository. @@ -5,6 +9,7 @@ 2000-03-28 Pixel * gendepslist2.cc: fix silly bug + 2000-03-26 Pixel * 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"; -- cgit v1.2.1