From d973e2a663b01557ad6f7c0c76463b6f7deb8d2d Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 10 Apr 2001 15:32:20 +0000
Subject: fixed selection of CDs.

---
 perl-install/install_steps_interactive.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2fbda0d9a..b8937f29c 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -646,10 +646,10 @@ If you have none of those CDs, click Cancel.
 If only some CDs are missing, unselect them, then click Ok."),
 			   {
 			    list => \@mediumsDescr,
-			    label => sub { _("Cd-Rom labeled \"%s\"", $_) },
-			    ref => sub { \$mediumsDescr{$_} },
+			    label => sub { _("Cd-Rom labeled \"%s\"", $_[0]) },
+			    val => sub { \$mediumsDescr{$_[0]} },
 			   }) or do {
-			       map { $mediumsDescr{$_} = 0 } @mediumsDescr; #- force unselection of other CDs.
+			       $mediumsDescr{$_} = 0 foreach @mediumsDescr; #- force unselection of other CDs.
 			   };
     $o->set_help('choosePackages');
 
-- 
cgit v1.2.1