diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-13 13:51:09 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-13 13:51:09 +0000 |
| commit | a47a5c4df46f77c4432d2f60f822650ce8171af6 (patch) | |
| tree | a3d3d952f48c568776c83775f0b22d60b400d89d /perl-install | |
| parent | b9849fdffd787ec3a8eff50ffe9430769fc6e88d (diff) | |
| download | drakx-a47a5c4df46f77c4432d2f60f822650ce8171af6.tar drakx-a47a5c4df46f77c4432d2f60f822650ce8171af6.tar.gz drakx-a47a5c4df46f77c4432d2f60f822650ce8171af6.tar.bz2 drakx-a47a5c4df46f77c4432d2f60f822650ce8171af6.tar.xz drakx-a47a5c4df46f77c4432d2f60f822650ce8171af6.zip | |
filtered the list from lang2keyboard to display only valid keyboards
Diffstat (limited to 'perl-install')
| -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) = @_; |