From 92e8ef22a4a7cf353b41525898a532cd40a96ee2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 30 Aug 2005 10:07:37 +0000
Subject: cleanup (remove duplicates)

---
 perl-install/any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index a30487992..1b895790c 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -551,8 +551,8 @@ sub writeandclean_ldsoconf {
     my @suggest = ('/usr/X11R6/lib', '/usr/lib/qt3/lib'); #- needed for upgrade where package renaming can cause this to disappear
 
     if (arch() =~ /x86_64/) {
-	push @default, map { $_, $_ . '64' } @default;
-	push @suggest, map { $_, $_ . '64' } @suggest;
+	@default = map { $_, $_ . '64' } @default;
+	@suggest = map { $_, $_ . '64' } @suggest;
     }
     push @l, grep { -d "$::prefix$_" } @suggest;
     @l = difference2(\@l, \@default);
-- 
cgit v1.2.1