summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-27 16:26:31 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-27 16:26:31 +0000
commit11d5d7345a4b09f60ab5d11183fcc9dcbde86572 (patch)
treeed0a2c4cdc220d38cdef77a9d8e44241c894712a /perl-install
parent0899f223c6b88efda73747d4ea5797dd04f01905 (diff)
downloaddrakx-backup-do-not-use-11d5d7345a4b09f60ab5d11183fcc9dcbde86572.tar
drakx-backup-do-not-use-11d5d7345a4b09f60ab5d11183fcc9dcbde86572.tar.gz
drakx-backup-do-not-use-11d5d7345a4b09f60ab5d11183fcc9dcbde86572.tar.bz2
drakx-backup-do-not-use-11d5d7345a4b09f60ab5d11183fcc9dcbde86572.tar.xz
drakx-backup-do-not-use-11d5d7345a4b09f60ab5d11183fcc9dcbde86572.zip
ensure a keyboard is only once available, either in advanced or normal, but
not in both (tx2fredl)
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 033e64620..5f6307c2e 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -211,7 +211,7 @@ sub selectKeyboard {
[ if_(@best > 1, { val => \$o->{keyboard}, type => 'list', format => $format, sort => 1,
list => [ @best ] }),
{ val => \$ext_keyboard, type => 'list', format => $format,
- list => [ keyboard::keyboards ], advanced => @best > 1 }
+ list => [ difference2([ keyboard::keyboards ], \@best) ], advanced => @best > 1 }
]);
delete $o->{keyboard_unsafe};