summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-23 01:22:45 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-23 01:22:45 +0000
commit17cb15c0d7be0377a98d14569c64cf35aab3215a (patch)
treed33b66887609c52612fa836a3d814e2e7f3923e0 /perl-install
parent35d6d94d1850227715a6e454a7d077b464d4add8 (diff)
downloaddrakx-backup-do-not-use-17cb15c0d7be0377a98d14569c64cf35aab3215a.tar
drakx-backup-do-not-use-17cb15c0d7be0377a98d14569c64cf35aab3215a.tar.gz
drakx-backup-do-not-use-17cb15c0d7be0377a98d14569c64cf35aab3215a.tar.bz2
drakx-backup-do-not-use-17cb15c0d7be0377a98d14569c64cf35aab3215a.tar.xz
drakx-backup-do-not-use-17cb15c0d7be0377a98d14569c64cf35aab3215a.zip
(setSelectedFromCompssList): fix sillyness
Diffstat (limited to 'perl-install')
-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 84c38a6ad..dc1cc87cc 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -681,7 +681,7 @@ sub setSelectedFromCompssList {
my ($packages, $compssUsersChoice, $min_level, $max_size, $install_class) = @_;
$compssUsersChoice->{TRUE} = 1; #- ensure TRUE is set
my $nb = selectedSize($packages);
- foreach my $p (sort { substr($a,0,1) <=> substr($b,0,1) } values %{$packages->{names}}) {
+ foreach my $p (sort { substr($a->[$VALUES],0,1) <=> substr($b->[$VALUES],0,1) } values %{$packages->{names}}) {
my ($rate, @flags) = split "\t", $p->[$VALUES];
next if !$rate || $rate < $min_level || grep { !grep { /^!(.*)/ ? !$compssUsersChoice->{$1} : $compssUsersChoice->{$_} } split('\|\|') } @flags;