diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-11-28 10:44:45 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-11-28 10:44:45 +0000 |
| commit | eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a (patch) | |
| tree | 03fd59aa4374fb37806eb615813b6566aed02ef9 /perl-install | |
| parent | 17b78ef29b650886034af93d87dadcc18217843b (diff) | |
| download | drakx-backup-do-not-use-eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a.tar drakx-backup-do-not-use-eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a.tar.gz drakx-backup-do-not-use-eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a.tar.bz2 drakx-backup-do-not-use-eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a.tar.xz drakx-backup-do-not-use-eb0e9e7e7c4cc2c789540f60426ec1ddb3ecf33a.zip | |
fixed misuse of map with values returing list which are indexed afterward.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/pkgs.pm | 2 |
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) { |