summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-01-07 21:11:15 +0000
committerFrancois Pons <fpons@mandriva.com>2000-01-07 21:11:15 +0000
commitbcdadca806b3b301a69d1ff6f69b52fe156b1bb4 (patch)
treef1ce98f6833a0e8ceed3acc41bea6af3d68f738f /perl-install/install_steps_interactive.pm
parent5a83b0a889e7bb5e517d691953cd34beedfc8ed3 (diff)
downloaddrakx-bcdadca806b3b301a69d1ff6f69b52fe156b1bb4.tar
drakx-bcdadca806b3b301a69d1ff6f69b52fe156b1bb4.tar.gz
drakx-bcdadca806b3b301a69d1ff6f69b52fe156b1bb4.tar.bz2
drakx-bcdadca806b3b301a69d1ff6f69b52fe156b1bb4.tar.xz
drakx-bcdadca806b3b301a69d1ff6f69b52fe156b1bb4.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 2 insertions, 2 deletions
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} ||= {};