From c3ce2573ae05a6145f5cd0c71d2b74b1bc9df754 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 31 Mar 2000 21:54:17 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps_gtk.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'perl-install/install_steps_gtk.pm')

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!
-- 
cgit v1.2.1