diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-01-07 21:11:15 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-01-07 21:11:15 +0000 |
| commit | bcdadca806b3b301a69d1ff6f69b52fe156b1bb4 (patch) | |
| tree | f1ce98f6833a0e8ceed3acc41bea6af3d68f738f /perl-install/install_steps_interactive.pm | |
| parent | 5a83b0a889e7bb5e517d691953cd34beedfc8ed3 (diff) | |
| download | drakx-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.pm | 4 |
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} ||= {}; |