diff options
| -rw-r--r-- | genhdlist_cz2 | 2 |
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 { |