From 224b14cb6b741fb15dcc4fd170306dc0165cba29 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 17 Dec 1999 17:28:14 +0000
Subject: no_comment

---
 perl-install/install_steps_interactive.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 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 4cf1dbfd9..800c5f84e 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -3,7 +3,7 @@ package install_steps_interactive;
 
 use diagnostics;
 use strict;
-use vars qw(@ISA $global_wait);
+use vars qw(@ISA);
 
 @ISA = qw(install_steps);
 
@@ -233,7 +233,7 @@ sub choosePackages {
     $o->ask_many_from_list_ref('',
 			       _("Package Group Selection"),
 			       [ @$compssUsersSorted ],
-			       [ map { \$o->{compssUsersChoice}{$_} } keys %$compssUsers ]
+			       [ map { \$o->{compssUsersChoice}{$_} } @$compssUsersSorted ]
 			       );
     while (my ($k, $v) = each %{$o->{compssUsersChoice}}) {
 	$v or next;
@@ -820,7 +820,7 @@ consult the Errata available from http://www.linux-mandrake.com/.
 Information on configuring your system is available in the post
 install chapter of the Official Linux-Mandrake User's Guide.")) if $alldone && !$::g_auto_install;
 
-    $global_wait = $o->wait_message('', _("Shutting down"));
+    $::global_wait = $o->wait_message('', _("Shutting down"));
 
     $o->SUPER::exitInstall;
 }
-- 
cgit v1.2.1