From d6f8e3ea1fe6f76b1c32893db0ba0ae7a4a69859 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 6 Mar 2002 17:17:39 +0000 Subject: fix typo in %xim (for chineese) --- perl-install/lang.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/lang.pm') diff --git a/perl-install/lang.pm b/perl-install/lang.pm index ddb386d07..03eae1330 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -186,6 +186,7 @@ my %xim = ( XIM_PROGRAM => 'chinput', XMODIFIERS => '"@im=Chinput"', CONSOLE_NOT_LOCALIZED => 'yes', + }, 'zh_CN.UTF-8' => { ENC => 'utf8', XIM => 'Chinput', @@ -193,7 +194,6 @@ my %xim = ( XMODIFIERS => '"@im=Chinput"', CONSOLE_NOT_LOCALIZED => 'yes', }, - }, 'ko' => { ENC => 'kr', XIM => 'Ami', @@ -696,7 +696,7 @@ sub write_langs { } sub write { - my ($prefix, $lang, $user_only) = @_; + my ($prefix, $lang, $user_only, $dont_touch_kde_files) = @_; $lang or return; @@ -768,7 +768,7 @@ sub write { StandardFont => charset2kde_font($charset, 0), )); } - }; + } if !$dont_touch_kde_files; } sub bindtextdomain() { -- cgit v1.2.1