summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/keyboard.pm4
1 files changed, 3 insertions, 1 deletions
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;