From 4b9f9119935f1e32812489c19913bd110b185d5e Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 11 May 2000 13:06:33 +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 715b96f27..b2f6f4a57 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -196,7 +196,7 @@ sub doPartitionDisks { } elsif ($@ =~ /not enough room/) { $o->ask_warn('', _("You don't have any enough room for Lnx4win")); } else { return } - delete $o->{lnx4win}; +#- delete $o->{lnx4win}; } if ($::beginner && fsedit::is_one_big_fat($hds)) { #- wizard @@ -558,7 +558,7 @@ sub installPackages { $nb = $_[0]; $total_size = $_[1]; $current_total_size = 0; $start_time = time(); - $msg->set(_("%d packages", $nb) . _(", %U MB", pkgs::correctSize($total_size / sqr(1024)))); + $msg->set(_("%d packages", $nb) . _(", %U MB", $total_size / sqr(1024))); $w->flush; } elsif ($m =~ /^Starting installing package/) { $progress->update(0); -- cgit v1.2.1