summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-04-10 15:32:20 +0000
committerFrancois Pons <fpons@mandriva.com>2001-04-10 15:32:20 +0000
commitd973e2a663b01557ad6f7c0c76463b6f7deb8d2d (patch)
treeab067cbb6ad45ac129958b7f19abcc88e901190d /perl-install
parent35f78da0b493a68084f6950aa4b428ab1c80795c (diff)
downloaddrakx-backup-do-not-use-d973e2a663b01557ad6f7c0c76463b6f7deb8d2d.tar
drakx-backup-do-not-use-d973e2a663b01557ad6f7c0c76463b6f7deb8d2d.tar.gz
drakx-backup-do-not-use-d973e2a663b01557ad6f7c0c76463b6f7deb8d2d.tar.bz2
drakx-backup-do-not-use-d973e2a663b01557ad6f7c0c76463b6f7deb8d2d.tar.xz
drakx-backup-do-not-use-d973e2a663b01557ad6f7c0c76463b6f7deb8d2d.zip
fixed selection of CDs.
Diffstat (limited to 'perl-install')
-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');