diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/lang.pm | 4 | ||||
| -rwxr-xr-x | perl-install/share/gen_locales.sh | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm index ea9a39f20..35a12953c 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -371,7 +371,7 @@ my %lang2country = ( ); -my @during_install__lang_having_their_LC_CTYPE = qw(hy ja ko th vi); +my @during_install__lang_having_their_LC_CTYPE = qw(ja ko th vi); #-###################################################################################### #- Functions @@ -825,7 +825,7 @@ sub during_install__lang2charset { $c = 'cp1251' if $c =~ /koi8-/; $c = 'iso-8859-15' if member($c, 'iso-8859-1', 'C'); $c = 'UTF-8' if member($c, 'unicode', 'utf_ka'); - $c = 'UTF-8' if member($c, 'iso-8859-9e', 'iso-8859-8', 'iso-8859-6'); #- BAD, need fixing + $c = 'UTF-8' if member($c, 'armscii-8', 'iso-8859-9e', 'iso-8859-8', 'iso-8859-6'); #- BAD, need fixing uc($c); } diff --git a/perl-install/share/gen_locales.sh b/perl-install/share/gen_locales.sh index afd6298c6..f2fc0cf3a 100755 --- a/perl-install/share/gen_locales.sh +++ b/perl-install/share/gen_locales.sh @@ -17,7 +17,7 @@ for i in CP1251 ISO-8859-13 ISO-8859-14 ISO-8859-15 ISO-8859-2 ISO-8859-3 ISO-88 done rm -rf .tmp2 ; mkdir .tmp2 ; cd .tmp2 -for i in hy ja ko th vi ; do +for i in ja ko th vi ; do ii=locales-`echo $i | sed 's/\(..\).*/\1/'` rpm2cpio /RPMS/$ii-*.rpm | cpio -id --quiet f=usr/share/locale/$i/LC_CTYPE |