From 2d896c9aef5a1d20790a03835c1b13cb2c23c0f0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Jan 2003 14:10:34 +0000
Subject: (read): fix return value when no configured keyboard is found

---
 perl-install/keyboard.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/keyboard.pm')

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());
     }
-- 
cgit v1.2.1