From 5cac2226c04a1cd65d20e6eccad6c9c633190352 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 13 Oct 2009 17:55:46 +0000 Subject: use UTF-8 for zh_TW (#53976) --- perl-install/any.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index feabbb7f0..aa601199a 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -1113,7 +1113,7 @@ when your installation is complete and you restart your system.")), format => sub { $_[0] =~ /(.*\|)(.*)/ ? $1 . lang::l2name($2) : lang::l2name($_[0]) }, list => \@langs, sort => !$in->isa('interactive::gtk'), changed => sub { #- very special cases for langs which do not like UTF-8 - $non_utf8 = $lang =~ /\bzh_TW/i if !$utf8_forced; + $non_utf8 = 0 if !$utf8_forced; }, focus_out => sub { $langs->{$listval2val->($lang)} = 1 } }, { val => \$non_utf8, type => 'bool', text => N("Old compatibility (non UTF-8) encoding"), advanced => 1, changed => sub { $utf8_forced = 1 } }, -- cgit v1.2.1