summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-23 14:10:34 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-23 14:10:34 +0000
commit2d896c9aef5a1d20790a03835c1b13cb2c23c0f0 (patch)
treee24a57d8098f395531161290743bfb8ebd9d7a84 /perl-install
parentc70e56839df5a0942c00cb29707db1a2e021cf00 (diff)
downloaddrakx-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.pm2
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());
}