fixed selection of CDs.

1 files changed, 3 insertions, 3 deletions

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');