From ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 25 May 2000 15:59:19 +0000 Subject: *** empty log message *** --- genhdlist_cz2 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 { -- cgit v1.2.1