diff options
| -rwxr-xr-x | perl-install/standalone/keyboarddrake | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/standalone/keyboarddrake b/perl-install/standalone/keyboarddrake index 01de6bf50..77a15ade2 100755 --- a/perl-install/standalone/keyboarddrake +++ b/perl-install/standalone/keyboarddrake @@ -21,6 +21,7 @@ if (my ($kb) = grep { !/^-/ } @ARGV) { $in = 'interactive'->vnew('su'); my ($xkb_models, $model2text) = keyboard::xkb_models(); + $_ =~ s/ /|/ foreach values %$model2text; $keyboard->{XkbModel} ||= 'pc105'; choose: @@ -33,6 +34,7 @@ if (my ($kb) = grep { !/^-/ } @ARGV) { }, { val => \$keyboard->{XkbModel}, format => sub { $model2text->{$_[0]} }, + separator => '|', list => $xkb_models }, ]) or goto end; |