aboutsummaryrefslogtreecommitdiffstats
path: root/extract_archive
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-02 13:02:09 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-02 13:02:09 +0000
commitc67d9116b05b0eab7d29ed14cf035d722eeefea1 (patch)
treecd121ecfb32a187bcff3f28094314d65f85c9f7a /extract_archive
parent1e2ff79e92d9f79096a4c186348ba4f190320169 (diff)
downloadrpmtools-c67d9116b05b0eab7d29ed14cf035d722eeefea1.tar
rpmtools-c67d9116b05b0eab7d29ed14cf035d722eeefea1.tar.gz
rpmtools-c67d9116b05b0eab7d29ed14cf035d722eeefea1.tar.bz2
rpmtools-c67d9116b05b0eab7d29ed14cf035d722eeefea1.tar.xz
rpmtools-c67d9116b05b0eab7d29ed14cf035d722eeefea1.zip
*** empty log message ***
Diffstat (limited to 'extract_archive')
-rwxr-xr-xextract_archive4
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";
}
}