diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-06-11 20:23:04 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-06-11 20:23:04 +0000 |
| commit | 20b3df1f92971aac987d0e6ce0f32a03c35680ee (patch) | |
| tree | 4c891a39628a12539e6fdafc33b8276bba462798 /perl-install | |
| parent | 3b8885e22af6283a1bb0467eed587ead5b30a310 (diff) | |
| download | drakx-20b3df1f92971aac987d0e6ce0f32a03c35680ee.tar drakx-20b3df1f92971aac987d0e6ce0f32a03c35680ee.tar.gz drakx-20b3df1f92971aac987d0e6ce0f32a03c35680ee.tar.bz2 drakx-20b3df1f92971aac987d0e6ce0f32a03c35680ee.tar.xz drakx-20b3df1f92971aac987d0e6ce0f32a03c35680ee.zip | |
get_text_coord: fix wrapping broken (gc sux)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 5c581ed54..db10afab5 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -644,7 +644,7 @@ sub get_text_coord { my $flag = 1; my @t = split($wrap_char, $text); my @t2; - if ($::isInstall && $::o->{lang} =~ /ja|zh/) { + if ($::isInstall && $::o->{locale}{lang} =~ /ja|zh/) { @t = map { $_ . $wrap_char } @t; $wrap_char = ''; foreach (@t) { |