diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-15 10:02:40 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-15 10:02:40 +0000 |
| commit | 3701042d5ee540c84051b89f90725de2cab548c2 (patch) | |
| tree | d8089f74d15e56a87219e12a73727d46064958f8 | |
| parent | 97e0799a702ca8ffbb4ee610112744e662bd2236 (diff) | |
| download | drakx-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)
| -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) { |