diff options
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 5d04915ea..eeb41b1c0 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -558,13 +558,12 @@ sub installPackages { $w->flush; } else { unshift @_, $m; goto $oldInstallCallback } }; - my $oldChangeMedium = \&install_any::changeMedium; - local *install_any::changeMedium = sub { + #- the modification is not local as the box should be living for other package installation. + undef *install_any::changeMedium; + *install_any::changeMedium = sub { my ($method, $medium) = @_; - my %medium_msg = ( - '' => _("Installation CD #1"), - ); - $medium_msg{$medium} or $medium_msg{$medium} = _("Installation CD #%s", $medium); + my %medium_msg = (); + $medium_msg{$medium} or $medium_msg{$medium} = _("Installation CD #%s", ($medium || 1)); my %method_msg = ( cdrom => _("Change your Cd-Rom! |