diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-11-26 17:46:37 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-11-26 17:46:37 +0000 |
| commit | 897230506eee5266871df2adf38c43542e6772cd (patch) | |
| tree | 86554972c7f8f49ed1616c323fa9b3f15f89f31f /rpmtools.pm | |
| parent | 76d3f1b58a4d1ffec3b57f115316d005cab105d5 (diff) | |
| download | rpmtools-897230506eee5266871df2adf38c43542e6772cd.tar rpmtools-897230506eee5266871df2adf38c43542e6772cd.tar.gz rpmtools-897230506eee5266871df2adf38c43542e6772cd.tar.bz2 rpmtools-897230506eee5266871df2adf38c43542e6772cd.tar.xz rpmtools-897230506eee5266871df2adf38c43542e6772cd.zip | |
fixes for alpha.3.1.9
Diffstat (limited to 'rpmtools.pm')
| -rw-r--r-- | rpmtools.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/rpmtools.pm b/rpmtools.pm index a3655d2..ac9b9ea 100644 --- a/rpmtools.pm +++ b/rpmtools.pm @@ -146,8 +146,10 @@ sub build_hdlist { foreach (@rpms) { my ($key) = /([^\/]*)\.rpm$/ or next; #- get rpm filename. - system("rpm2header '$_' > '$dir/$key'") unless -s "$dir/$key"; - $? == 0 or unlink("$dir/$key"), die "bad rpm $_\n"; + unless (-s "$dir/$key") { + system("rpm2header '$_' > '$dir/$key'"); + $? == 0 or unlink("$dir/$key"), die "bad rpm $_\n"; + } -s "$dir/$key" or unlink("$dir/$key"), die "bad rpm $_\n"; my ($name, $version, $release, $arch) = $key =~ /(.*)-([^-]*)-([^-]*)\.([^\.]*)$/; |