summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-11-28 10:44:45 +0000
committerFrancois Pons <fpons@mandriva.com>2000-11-28 10:44:45 +0000
commiteb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a (patch)
tree03fd59aa4374fb37806eb615813b6566aed02ef9
parent17b78ef29b650886034af93d87dadcc18217843b (diff)
downloaddrakx-eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a.tar
drakx-eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a.tar.gz
drakx-eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a.tar.bz2
drakx-eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a.tar.xz
drakx-eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a.zip
fixed misuse of map with values returing list which are indexed afterward.
-rw-r--r--perl-install/pkgs.pm2
1 files changed, 1 insertions, 1 deletions
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) {