From 3701042d5ee540c84051b89f90725de2cab548c2 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 15 Sep 2004 10:02:40 +0000
Subject: (get_text_coord) fix wrapping for CJ when mixed with english strings
 (eg: cuted "Mandrakesoft" word)

---
 perl-install/ugtk2.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/ugtk2.pm')

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) {
-- 
cgit v1.2.1