From 20b3df1f92971aac987d0e6ce0f32a03c35680ee Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
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