From 3bc20c1ea1a306475ea8eab8e8e1973625ca785f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 15 Dec 1999 12:50:29 +0000
Subject: no_comment

---
 perl-install/install_steps_interactive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 6abd2a9ee..8b859aaa8 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -227,12 +227,12 @@ sub selectPackagesToUpgrade {
 }
 #------------------------------------------------------------------------------
 sub choosePackages {
-    my ($o, $packages, $compss, $compssUsers) = @_;
+    my ($o, $packages, $compss, $compssUsers, $compssUsersSorted) = @_;
 
     require pkgs;
     $o->ask_many_from_list_ref('',
 			       _("Package Group Selection"),
-			       [ keys %$compssUsers ],
+			       [ @$compssUsersSorted ],
 			       [ map { \$o->{compssUsersChoice}{$_} } keys %$compssUsers ]
 			       );
     while (my ($k, $v) = each %{$o->{compssUsersChoice}}) {
-- 
cgit v1.2.1