From bcdadca806b3b301a69d1ff6f69b52fe156b1bb4 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 7 Jan 2000 21:11:15 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps_interactive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 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 a6d4ff22c..d4a2f248e 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -320,7 +320,7 @@ sub installPackages {
     local *pkgs::installCallback = sub {
 	my $m = shift;
 	if ($m =~ /^Starting installation/) {
-	    $total = $_[2];
+	    $total = $_[1];
 	} elsif ($m =~ /^Starting installing package/) {
 	    my $name = $_[0];
 	    $w->set(_("Installing package %s\n%d%%", $name, $total && 100 * $current / $total));
@@ -854,7 +854,7 @@ sub miscellaneous {
 	4 => _("High"),
 	5 => _("Paranoid"),
     );
-    delete @l{1,5} unless $::expert;
+    delete @l{0,1,5} unless $::expert;
 
     install_steps::miscellaneous($o);
     my $u = $o->{miscellaneous} ||= {};
-- 
cgit v1.2.1