summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-01-05 15:34:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-01-05 15:34:18 +0000
commit298686274c4596a3456cc555cb0546ada8954ce9 (patch)
tree4f9c8e28738b6d31010116c2082ccc6f9206a830 /perl-install
parent26cb2a8c2bb8cf726e3eeaec36857b79431e4242 (diff)
downloaddrakx-298686274c4596a3456cc555cb0546ada8954ce9.tar
drakx-298686274c4596a3456cc555cb0546ada8954ce9.tar.gz
drakx-298686274c4596a3456cc555cb0546ada8954ce9.tar.bz2
drakx-298686274c4596a3456cc555cb0546ada8954ce9.tar.xz
drakx-298686274c4596a3456cc555cb0546ada8954ce9.zip
fix selecting "other" keyboard when @best <= 1
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 5bd9825e9..a333c8405 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -127,7 +127,7 @@ sub selectKeyboard {
{ val => \$ext_keyboard, type => 'list', format => $format,
list => [ difference2([ keyboard::KEYBOARDs() ], \@best) ], advanced => @best > 1 }
]);
- $o->{keyboard}{KEYBOARD} = $other ? $ext_keyboard : $KEYBOARD;
+ $o->{keyboard}{KEYBOARD} = @best <= 1 || $other ? $ext_keyboard : $KEYBOARD;
delete $o->{keyboard}{unsafe};
}
keyboard::group_toggle_choose($o, $o->{keyboard}) or goto &selectKeyboard;