From 4710960f1314ec790ea876f0e50250cac59e089c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Sep 1999 14:49:36 +0000
Subject: no_comment

---
 perl-install/keyboard.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

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

diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 44a9fc32a..5f2ee9b14 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -79,6 +79,11 @@ sub text2keyboard {
     die "unknown keyboard $t";
 }
 
+sub kmap($) {
+    my ($keyboard) = @_;
+    ($keyboards{$keyboard} || [])->[1];
+}
+
 sub lang2keyboard($) {
     local ($_) = @_;
     $keyboards{$_} && $_ || $lang2keyboard{$_} || substr($_, 0, 2);    
@@ -128,11 +133,8 @@ sub setup($) {
 
 sub write($$) {
     my ($prefix, $keyboard) = @_;
-    my $o = $keyboards{$keyboard} or return;
 
-    local *F;
-    open F, ">$prefix/etc/sysconfig/keyboard" or die "failed to create keyboard configuration: $!";
-    print F "KEYTABLE=$o->[1]\n" or die "failed to write keyboard configuration: $!";
+    setVarsInSh("$prefix/etc/sysconfig/keyboard", { KEYTABLE => kmap($keyboard) });
 
     run_program::rooted($prefix, "dumpkeys > /etc/sysconfig/console/default.kmap") or die "dumpkeys failed";
 }
-- 
cgit v1.2.1