From 2b944d28fc478a01491b78b1c29e8b03a948f296 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 23 Feb 2001 11:09:51 +0000
Subject: (setSelectedFromCompssList): fix the fix

---
 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 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;
 
-- 
cgit v1.2.1