From b51ffa9db486393e7b2531240db34df49a658141 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Tue, 26 Nov 2002 19:37:01 +0000
Subject: fix typo (gtkstring_size) thx to perl checker

---
 perl-install/ugtk2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/ugtk2.pm')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index e7e9ece9c..d55cf0e6c 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -614,7 +614,7 @@ sub get_text_coord {
 	@t2 = @t;
     }
     foreach (@t2) {
-	my ($l, undef) = gtkstring_size($_ . (!$flag ? $wrap_char : ''));
+	my ($l, undef) = string_size($_ . (!$flag ? $wrap_char : ''));
 	if ($width + $l > $max_width2 && !$flag) {
 	    $flag = 1;
 	    $height += $height_elem + 1;
-- 
cgit v1.2.1