diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-05-25 15:59:19 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-05-25 15:59:19 +0000 |
| commit | ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6 (patch) | |
| tree | bc33177d253b424ee1ff98eb9b05b37dd23d1de8 | |
| parent | 386b796d218325b85f3903d0ae8b04f04b3a2757 (diff) | |
| download | rpmtools-ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6.tar rpmtools-ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6.tar.gz rpmtools-ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6.tar.bz2 rpmtools-ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6.tar.xz rpmtools-ff6c2851d04b0fbd0bf590ffa74b2e82df95a5d6.zip | |
*** empty log message ***
| -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 { |