diff options
Diffstat (limited to 'perl-install/lang.pm')
| -rw-r--r-- | perl-install/lang.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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) }; |