From 20b3df1f92971aac987d0e6ce0f32a03c35680ee Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 11 Jun 2003 20:23:04 +0000 Subject: get_text_coord: fix wrapping broken (gc sux) --- perl-install/ugtk2.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') 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) { -- cgit v1.2.1