summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-15 12:50:29 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-15 12:50:29 +0000
commit3bc20c1ea1a306475ea8eab8e8e1973625ca785f (patch)
tree5cecbffa4160d47c8de483e723474ec668c0bcc6 /perl-install/install_steps_gtk.pm
parent42ded0f5b50145273e019818e4e3eb002667aff8 (diff)
downloaddrakx-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar
drakx-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar.gz
drakx-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar.bz2
drakx-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.tar.xz
drakx-3bc20c1ea1a306475ea8eab8e8e1973625ca785f.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm4
1 files changed, 2 insertions, 2 deletions
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 });