diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-01-23 14:10:34 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-01-23 14:10:34 +0000 |
| commit | 2d896c9aef5a1d20790a03835c1b13cb2c23c0f0 (patch) | |
| tree | e24a57d8098f395531161290743bfb8ebd9d7a84 /perl-install | |
| parent | c70e56839df5a0942c00cb29707db1a2e021cf00 (diff) | |
| download | drakx-2d896c9aef5a1d20790a03835c1b13cb2c23c0f0.tar drakx-2d896c9aef5a1d20790a03835c1b13cb2c23c0f0.tar.gz drakx-2d896c9aef5a1d20790a03835c1b13cb2c23c0f0.tar.bz2 drakx-2d896c9aef5a1d20790a03835c1b13cb2c23c0f0.tar.xz drakx-2d896c9aef5a1d20790a03835c1b13cb2c23c0f0.zip | |
(read): fix return value when no configured keyboard is found
Diffstat (limited to 'perl-install')
| -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 a1c13f9a4..fdd25f662 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -503,7 +503,7 @@ sub write { } sub read { - my %keyboard = getVarsFromSh("$::prefix/etc/sysconfig/keyboard") or return {}; + my %keyboard = getVarsFromSh("$::prefix/etc/sysconfig/keyboard") or return; if (!$keyboard{KEYBOARD}) { add2hash(\%keyboard, grep { keyboard2kmap($_) eq $keyboard{KEYTABLE} } keyboards()); } |