diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-03-15 10:31:05 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-03-15 10:31:05 +0000 |
| commit | cd674185891ffc0d143d5dcbd525af73eb2c5ab0 (patch) | |
| tree | f6a16c431708afb78ffb9997d0a6cee5ad5e3a20 | |
| parent | f7379c17842aec187c238a6346688f6c63fa6514 (diff) | |
| download | drakx-cd674185891ffc0d143d5dcbd525af73eb2c5ab0.tar drakx-cd674185891ffc0d143d5dcbd525af73eb2c5ab0.tar.gz drakx-cd674185891ffc0d143d5dcbd525af73eb2c5ab0.tar.bz2 drakx-cd674185891ffc0d143d5dcbd525af73eb2c5ab0.tar.xz drakx-cd674185891ffc0d143d5dcbd525af73eb2c5ab0.zip | |
(unpack_keyboards): return undef on error
| -rw-r--r-- | perl-install/keyboard.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index b28fa55b7..a9c81e1ee 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -327,7 +327,7 @@ sub loadkeys_files { } sub unpack_keyboards { - my ($k) = @_ or return; + my ($k) = @_; $k or return; [ grep { my $b = $keyboards{$_->[0]}; $b or log::l("bad keyboard $_->[0] in %keyboard::lang2keyboard"); |