diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-22 16:47:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-22 16:47:25 +0000 |
| commit | a5a0d13005490f58a309d05d37d2a938aa98ef14 (patch) | |
| tree | 4389f3de273510939c1b15f9c9d75436934099fb /perl-install/lang.pm | |
| parent | b65957b3475cc1a7ab1b4cc6ca4d4b2c3692c30c (diff) | |
| download | drakx-a5a0d13005490f58a309d05d37d2a938aa98ef14.tar drakx-a5a0d13005490f58a309d05d37d2a938aa98ef14.tar.gz drakx-a5a0d13005490f58a309d05d37d2a938aa98ef14.tar.bz2 drakx-a5a0d13005490f58a309d05d37d2a938aa98ef14.tar.xz drakx-a5a0d13005490f58a309d05d37d2a938aa98ef14.zip | |
simplify (using the asumption that XKB is now always used)
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) }; |