diff options
| -rw-r--r-- | perl-install/keyboard.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index 3e43d4a65..83eec4d9e 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -279,7 +279,11 @@ sub loadkeys_files { sub unpack_keyboards { my ($k) = @_ or return; - [ map { [ split ':' ] } split ' ', $k ]; + [ grep { + my $b = $keyboards{$_->[0]}; + $b or log::l("bad keyboard $_->[0] in %keyboard::lang2keyboard"); + $b; + } map { [ split ':' ] } split ' ', $k ]; } sub lang2keyboards { my ($l) = @_; |