summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_stdio.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-17 16:45:33 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-17 16:45:33 +0000
commitdeddef1f4746139ed4ef994d8f053bf39d4d6384 (patch)
tree1b2ce28fc88f3b55e7dae2af56782ee6c849d775 /perl-install/install_steps_stdio.pm
parent9f8734e27c9a88137a2933970b7a5962e37789da (diff)
downloaddrakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar
drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar.gz
drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar.bz2
drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar.xz
drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_stdio.pm')
-rw-r--r--perl-install/install_steps_stdio.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm
index 44de0dd60..9db9b2f9f 100644
--- a/perl-install/install_steps_stdio.pm
+++ b/perl-install/install_steps_stdio.pm
@@ -28,7 +28,9 @@ sub leavingStep {
}
sub chooseLanguage($) {
- my $lang = ask_from_list('Language', 'Which language do you want?', [ lang::list() ]);
+ my $lang = lang::text2lang(ask_from_list('Language',
+ 'Which language do you want?',
+ [ lang::list() ]));
run_program::run('xmodmap', "/usr/bin/$lang.map");
$lang;
}
@@ -56,13 +58,12 @@ sub choosePartitionsToFormat($$) {
sub choosePackages($$$) {
my ($o, $packages, $comps) = @_;
- my @comps = values %$comps;
my @r = ask_many_from_list('',
"Choose the packages you want to install",
- [ map { $_->{name} } @comps ],
- [ map { $_->{selected} } @comps ]);
+ [ map { $_->{name} } @$comps ],
+ [ map { $_->{selected} } @$comps ]);
- for (my $i = 0; $i < @comps; $i++) {
+ for (my $i = 0; $i < @$comps; $i++) {
$comps[$i]->{selected} = $r[$i];
}
}