From a5a0d13005490f58a309d05d37d2a938aa98ef14 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 22 Aug 2002 16:47:25 +0000
Subject: simplify (using the asumption that XKB is now always used)

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

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

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index baec961b7..bf68915c9 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -666,8 +666,10 @@ sub write {
 
     $lang or return;
 
-    my $h = {};
-    $h->{$_} = $lang foreach qw(LC_COLLATE LC_CTYPE LC_MESSAGES LC_NUMERIC LC_MONETARY LC_TIME);
+    my $h = {
+	XKB_IN_USE => '',
+	(map { $_ => $lang } qw(LC_COLLATE LC_CTYPE LC_MESSAGES LC_NUMERIC LC_MONETARY LC_TIME)),
+    };
     if ($lang && exists $languages{$lang}) {
 ##- note: KDE is unable to use the keyboard if LC_* and LANG values differ...
 #-	add2hash $h, { LANG => lang2LANG($lang), LANGUAGE => lang2LANGUAGE($lang) };
-- 
cgit v1.2.1