From eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 28 Nov 2000 10:44:45 +0000
Subject: fixed misuse of map with values returing list which are indexed
 afterward.

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 5c78fbbf6..90744fb30 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -729,7 +729,7 @@ sub setSelectedFromCompssList {
     my @packages = allPackages($packages);
     my @places = do {
 	#- special case for /^k/ aka kde stuff
-	my @values = map { (unpack "s*", $_->[$VALUES])[$ind] } @packages;
+	my @values = map { my @v = unpack "s*", $_->[$VALUES]; $v[$ind] } @packages;
 	sort { $values[$b] <=> $values[$a] } 0 .. $#packages;
     };
     foreach (@places) {
-- 
cgit v1.2.1