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_gtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index db1461b47..84579e4b9 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -294,7 +294,7 @@ _("TODO"))) {
 
 #------------------------------------------------------------------------------
 sub choosePackages {
-    my ($o, $packages, $compss, $compssUsers, $first_time) = @_;
+    my ($o, $packages, $compss, $compssUsers, $compssUsersSorted, $first_time) = @_;
 
     if ($::beginner) {
 	require pkgs;
@@ -335,7 +335,7 @@ sub chooseSizeToInstall {
 				       $o->{installClass}, $o->{isUpgrade});
 }
 sub choosePackagesTree {
-    my ($o, $packages, $compss, $compssUsers) = @_;
+    my ($o, $packages, $compss) = @_;
     my $availableSpace = int(install_any::getAvailableSpace($o) / sqr(1024));
     my $w = my_gtk->new('');
     add2hash_($o->{packages_}, { show_level => 0 }); #- keep show more or less 80 });
-- 
cgit v1.2.1