From 70b2a91a4609c2d023d88764781570b26be0d881 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 15 Jul 2002 12:27:20 +0000 Subject: fixed reference to no more used variable since new callback scheme. --- perl-install/install_steps_gtk.pm | 2 +- perl-install/install_steps_interactive.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') 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. -- cgit v1.2.1