From 2a0bbee296669686a3332e6595bc1021757249b0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 24 Jun 2000 10:15:52 +0000
Subject: no_comment

---
 perl-install/keyboard.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 894adf130..6ece6b7c0 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -268,10 +268,12 @@ sub setup($) {
     eval { run_program::run('xmodmap', $f) } unless $::testing || !$f;
 }
 
-sub write($$;$) {
-    my ($prefix, $keyboard, $isNotDelete) = @_;
+sub write($$$;$) {
+    my ($prefix, $keyboard, $charset, $isNotDelete) = @_;
 
-    setVarsInSh("$prefix/etc/sysconfig/keyboard", { KEYTABLE => keyboard2kmap($keyboard), $isNotDelete ? () : (BACKSPACE => "Delete") });
+    setVarsInSh("$prefix/etc/sysconfig/keyboard", { KEYTABLE => keyboard2kmap($keyboard), 
+						    KBCHARSET => $charset,
+						    $isNotDelete ? () : (BACKSPACE => "Delete") });
     run_program::rooted($prefix, "dumpkeys > /etc/sysconfig/console/default.kmap") or log::l("dumpkeys failed");
 }
 
-- 
cgit v1.2.1