From d66af1d21b51e85255468b3832929e1526e30320 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 15 Sep 2004 08:09:54 +0000
Subject: (get_text_coord) kill unused character

---
 perl-install/ugtk2.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 3c9b32e64..16e4bf58a 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -786,8 +786,8 @@ sub string_height {
 }
 
 sub get_text_coord {
-    my ($text, $widget4style, $max_width, $currentx, $currenty, $o_wrap_char) = @_;
-    my $wrap_char = $o_wrap_char || ' ';
+    my ($text, $widget4style, $max_width, $currentx, $currenty) = @_;
+    my $wrap_char = ' ';
     my @lines;
     my $current_text;
     my @t = split($wrap_char, $text);
-- 
cgit v1.2.1