aboutsummaryrefslogtreecommitdiffstats
path: root/genhdlist_cz2
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-25 15:59:19 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-25 15:59:19 +0000
commitff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6 (patch)
treebc33177d253b424ee1ff98eb9b05b37dd23d1de8 /genhdlist_cz2
parent386b796d218325b85f3903d0ae8b04f04b3a2757 (diff)
downloadrpmtools-ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6.tar
rpmtools-ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6.tar.gz
rpmtools-ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6.tar.bz2
rpmtools-ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6.tar.xz
rpmtools-ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6.zip
*** empty log message ***
Diffstat (limited to 'genhdlist_cz2')
-rw-r--r--genhdlist_cz22
1 files changed, 1 insertions, 1 deletions
diff --git a/genhdlist_cz2 b/genhdlist_cz2
index 6a178a4..d464049 100644
--- a/genhdlist_cz2
+++ b/genhdlist_cz2
@@ -44,7 +44,7 @@ while ($_ = readdir DIR) {
-s $_ or unlink($_), die "bad rpm $dir/$_\n";
if ($keys{$key}) {
my ($name, $tail) = $key =~ /(.*)(-[^-]*-[^-]*)/;
- $keys{"$name($keys{$key})$tail"} = $keys{$key}; unlink "$name($keys{$key})$tail"; link $_, "$name($keys{$key})$tail";
+ $keys{"$name($keys{$key})$tail"} = $keys{$key}; unlink "$name($keys{$key})$tail"; link "$key.$keys{$key}.rpm", "$name($keys{$key})$tail";
$keys{"$name($arch)$tail"} = $arch; unlink "$name($arch)$tail"; link $_, "$name($arch)$tail";
delete $keys{$key};
} else {