diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-03-31 21:54:17 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-03-31 21:54:17 +0000 |
| commit | c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754 (patch) | |
| tree | 9d7c0529277964690cb89f73939eea9fe5f7b172 /perl-install/install_steps_gtk.pm | |
| parent | bcd0d92e8b0b72d04b45eeaaea541d672cc46ab7 (diff) | |
| download | drakx-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar drakx-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar.gz drakx-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar.bz2 drakx-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar.xz drakx-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.zip | |
*** empty log message ***
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! |