From 897230506eee5266871df2adf38c43542e6772cd Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Mon, 26 Nov 2001 17:46:37 +0000
Subject: fixes for alpha.

---
 rpmtools.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'rpmtools.pm')

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 =~ /(.*)-([^-]*)-([^-]*)\.([^\.]*)$/;
-- 
cgit v1.2.1