aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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 {