diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-07-15 12:27:20 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-07-15 12:27:20 +0000 |
| commit | 70b2a91a4609c2d023d88764781570b26be0d881 (patch) | |
| tree | c934bf9e46a02b6f5b63c52c31d0089da101021a /perl-install | |
| parent | 3b144b013f74fc06fb15a15c43f70bc0bfad9bd3 (diff) | |
| download | drakx-70b2a91a4609c2d023d88764781570b26be0d881.tar drakx-70b2a91a4609c2d023d88764781570b26be0d881.tar.gz drakx-70b2a91a4609c2d023d88764781570b26be0d881.tar.bz2 drakx-70b2a91a4609c2d023d88764781570b26be0d881.tar.xz drakx-70b2a91a4609c2d023d88764781570b26be0d881.zip | |
fixed reference to no more used variable since new callback scheme.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 36c7139ac..0253cdf07 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -633,7 +633,7 @@ sub installPackages { $last_dtime = $dtime; } $w->flush; - } else { unshift @_, $m; goto $oldInstallCallback } + } else { goto $oldInstallCallback } }; #- the modification is not local as the box should be living for other package installation. undef *install_any::changeMedium; diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index e268f37f7..63387c35f 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -772,7 +772,7 @@ sub installPackages { my $p = $data->{depslist}[$id]; $w->set(_("Installing package %s\n%d%%", $p->name, $total && 100 * $current / $total)); $current += $p->size; - } else { unshift @_, $m; goto $old } + } else { goto $old } }; #- the modification is not local as the box should be living for other package installation. |