summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-19 20:39:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-19 20:39:51 +0000
commit9a043fba050690f8c171f5ad7f5088ba04945b9e (patch)
tree1c8e10b8adac879f9e8e998eb133f7e8bf0d852f /perl-install
parentf453a6803dac9bd312371a59d5a4ae42e2cad35e (diff)
downloaddrakx-backup-do-not-use-9a043fba050690f8c171f5ad7f5088ba04945b9e.tar
drakx-backup-do-not-use-9a043fba050690f8c171f5ad7f5088ba04945b9e.tar.gz
drakx-backup-do-not-use-9a043fba050690f8c171f5ad7f5088ba04945b9e.tar.bz2
drakx-backup-do-not-use-9a043fba050690f8c171f5ad7f5088ba04945b9e.tar.xz
drakx-backup-do-not-use-9a043fba050690f8c171f5ad7f5088ba04945b9e.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-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 7cf56d3bc..f5842856c 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -301,7 +301,7 @@ sub chooseSizeToInstall {
my $percentage = int 100 * $max_size / $max_size_;
#- don't ask anything if the difference between min and max is too small
-# return $max_size if $min_size && $max_size / $min_size < 1.01;
+ return $max_size if $min_size && $max_size / $min_size < 1.01;
log::l("choosing size to install between $min_size and $max_size");
my $w = my_gtk->new('');
@@ -333,7 +333,7 @@ a percentage of %d%% will install as many packages as possible.", $percentage, $
)
);
$spin->signal_connect(changed => my $changed = sub {
- my $val = $spin->get_value_as_int / 100 * $max_size;
+ $val = $spin->get_value_as_int / 100 * $max_size;
$mb->set(sprintf("(%dMB)", pkgs::correctSize($val / sqr(1024))));
}); &$changed();
$spin->signal_connect(activate => sub { $w->{retval} = 1; Gtk->main_quit });