summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-15 10:02:40 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-15 10:02:40 +0000
commit3701042d5ee540c84051b89f90725de2cab548c2 (patch)
treed8089f74d15e56a87219e12a73727d46064958f8 /perl-install/ugtk2.pm
parent97e0799a702ca8ffbb4ee610112744e662bd2236 (diff)
downloaddrakx-3701042d5ee540c84051b89f90725de2cab548c2.tar
drakx-3701042d5ee540c84051b89f90725de2cab548c2.tar.gz
drakx-3701042d5ee540c84051b89f90725de2cab548c2.tar.bz2
drakx-3701042d5ee540c84051b89f90725de2cab548c2.tar.xz
drakx-3701042d5ee540c84051b89f90725de2cab548c2.zip
(get_text_coord) fix wrapping for CJ when mixed with english strings
(eg: cuted "Mandrakesoft" word)
Diffstat (limited to 'perl-install/ugtk2.pm')
-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) {