diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-11-16 09:32:54 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-11-16 09:32:54 +0000 |
| commit | 13c33d2eca7a041d365cff2a2c4cfefd4e3da293 (patch) | |
| tree | 33c6a34b23da5f6e347e1d0e7c86a71244a76938 /rpmtools.pm | |
| parent | 86bdc611b507359c647d459141c14e9283bb90e4 (diff) | |
| download | rpmtools-13c33d2eca7a041d365cff2a2c4cfefd4e3da293.tar rpmtools-13c33d2eca7a041d365cff2a2c4cfefd4e3da293.tar.gz rpmtools-13c33d2eca7a041d365cff2a2c4cfefd4e3da293.tar.bz2 rpmtools-13c33d2eca7a041d365cff2a2c4cfefd4e3da293.tar.xz rpmtools-13c33d2eca7a041d365cff2a2c4cfefd4e3da293.zip | |
*** empty log message ***3.1.6
Diffstat (limited to 'rpmtools.pm')
| -rw-r--r-- | rpmtools.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rpmtools.pm b/rpmtools.pm index 5c8445d..bf86eb8 100644 --- a/rpmtools.pm +++ b/rpmtools.pm @@ -146,13 +146,13 @@ sub build_hdlist { foreach (@rpms) { my ($key) = /([^\/]*)\.rpm$/ or next; #- get rpm filename. - system("rpm2header '$_' > '$dir/$key'") unless -e "$dir/$key"; + system("rpm2header '$_' > '$dir/$key'") unless -s "$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 =~ /(.*)-([^-]*)-([^-]*)\.([^\.]*)$/; my ($realname, $realversion, $realrelease, $realarch) = - `parsehdlist --raw '$dir/$key'` =~ /(.*)-([^-]*)-([^-]*)\.([^\.]*)\.rpm$/; + `parsehdlist --raw --name '$dir/$key'` =~ /:name:([^\:]*)-([^\:\-]*)-([^\:\-]*)\.([^\-\.\:\s]*)(?::.*\.rpm)?$/; unless (length($name) && length($version) && length($release) && length($arch) && $name eq $realname && $version eq $realversion && $release eq $realrelease && $arch eq $realarch) { my $newkey = "$realname-$realversion-$realrelease.$realarch:$key"; |