From c67d9116b05b0eab7d29ed14cf035d722eeefea1 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 2 May 2000 13:02:09 +0000 Subject: *** empty log message *** --- extract_archive | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'extract_archive') 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"; } } -- cgit v1.2.1