diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-02-23 11:09:51 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-02-23 11:09:51 +0000 |
| commit | 2b944d28fc478a01491b78b1c29e8b03a948f296 (patch) | |
| tree | 0317ec9a6eb1ed8e036cfcb52c285f472e467f4e /perl-install | |
| parent | 793018d13a0c5ceeb5726c74f572b5cb26fa08a3 (diff) | |
| download | drakx-2b944d28fc478a01491b78b1c29e8b03a948f296.tar drakx-2b944d28fc478a01491b78b1c29e8b03a948f296.tar.gz drakx-2b944d28fc478a01491b78b1c29e8b03a948f296.tar.bz2 drakx-2b944d28fc478a01491b78b1c29e8b03a948f296.tar.xz drakx-2b944d28fc478a01491b78b1c29e8b03a948f296.zip | |
(setSelectedFromCompssList): fix the fix
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 dc1cc87cc..9abab8985 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->[$VALUES],0,1) <=> substr($b->[$VALUES],0,1) } values %{$packages->{names}}) { + foreach my $p (sort { substr($b->[$VALUES],0,1) <=> substr($a->[$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; |