diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 16e4bf58a..69b698ba4 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -793,10 +793,11 @@ sub get_text_coord { my @t = split($wrap_char, $text); my @t2; if ($::isInstall && $::o->{locale}{lang} =~ /ja|zh/) { + use locale; @t = map { $_ . $wrap_char } @t; $wrap_char = ''; foreach (@t) { - my @c = split(''); + my @c = split(/\b/); my $i = 0; my $el = ''; while (1) { |