From cd674185891ffc0d143d5dcbd525af73eb2c5ab0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 15 Mar 2002 10:31:05 +0000
Subject: (unpack_keyboards): return undef on error

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