summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm6
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');