summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-03-31 21:54:17 +0000
committerFrancois Pons <fpons@mandriva.com>2000-03-31 21:54:17 +0000
commitc3ce2573ae05a6145f5cd0c71d2b74b1bc9df754 (patch)
tree9d7c0529277964690cb89f73939eea9fe5f7b172 /perl-install/install_steps_gtk.pm
parentbcd0d92e8b0b72d04b45eeaaea541d672cc46ab7 (diff)
downloaddrakx-backup-do-not-use-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar
drakx-backup-do-not-use-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar.gz
drakx-backup-do-not-use-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar.bz2
drakx-backup-do-not-use-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.tar.xz
drakx-backup-do-not-use-c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm11
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!