summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/ugtk2.pm3
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) {