diff options
| -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. |