From 497e409c9d749f868602d2135c5110b814a32792 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Oct 2003 13:02:05 +0000
Subject: if we have /bin/loadkeys, use it

---
 perl-install/keyboard.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index ab448865f..efa20dc01 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -471,7 +471,9 @@ sub setup {
     my $kmap = keyboard2kmap($keyboard) or return;
 
     log::l("loading keymap $kmap");
-    if (-e (my $f = "$ENV{SHARE_PATH}/keymaps/$kmap.bkmap")) {
+    if (-x '/bin/loadkeys') {
+	run_program::run('loadkeys', $kmap);
+    } elsif (-e (my $f = "$ENV{SHARE_PATH}/keymaps/$kmap.bkmap")) {
 	load(scalar cat_($f));
     } else {
 	my $F;
-- 
cgit v1.2.1