summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-02-22 13:43:44 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-02-22 13:43:44 +0000
commitfdde198ca5e44c8de0a2d6b7b654fdec378b43c1 (patch)
tree58b36d3368833144ea6cc211aa49f4d6c6e6de6d /perl-install/lang.pm
parent499805090758ee226b80e12257f8c4a9d6d90e6a (diff)
downloaddrakx-fdde198ca5e44c8de0a2d6b7b654fdec378b43c1.tar
drakx-fdde198ca5e44c8de0a2d6b7b654fdec378b43c1.tar.gz
drakx-fdde198ca5e44c8de0a2d6b7b654fdec378b43c1.tar.bz2
drakx-fdde198ca5e44c8de0a2d6b7b654fdec378b43c1.tar.xz
drakx-fdde198ca5e44c8de0a2d6b7b654fdec378b43c1.zip
not translating in console installs (esp. newt) when the font is missing
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm11
1 files changed, 8 insertions, 3 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 52c6c968d..857f97838 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -544,7 +544,7 @@ sub charset2kde_charset {
}
sub set {
- my ($lang) = @_;
+ my ($lang, $translate_for_console) = @_;
if ($lang && !exists $languages{$lang}) {
#- try to find the best lang
@@ -596,9 +596,14 @@ sub set {
$ENV{LC_CTYPE} = lang2LANG($lang);
$ENV{LC_MESSAGES} = lang2LANG($lang);
$ENV{LANG} = lang2LANG($lang);
- $ENV{LANGUAGE} = lang2LANGUAGE($lang);
- load_mo();
+ if ($translate_for_console && $lang =~ /^(ko|ja|zh|th)/) {
+ log::l("not translating in console");
+ $ENV{LANGUAGE} = 'C';
+ } else {
+ $ENV{LANGUAGE} = lang2LANGUAGE($lang);
+ }
+ load_mo() ;
} else {
# stick with the default (English) */
delete $ENV{LANG};