summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-09-15 08:09:54 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-09-15 08:09:54 +0000
commitd66af1d21b51e85255468b3832929e1526e30320 (patch)
tree58dbc5887509bfb83cb28653f94b1b8090c72dca /perl-install
parent1633d916dd49edac839b49bd20a3e21184669194 (diff)
downloaddrakx-d66af1d21b51e85255468b3832929e1526e30320.tar
drakx-d66af1d21b51e85255468b3832929e1526e30320.tar.gz
drakx-d66af1d21b51e85255468b3832929e1526e30320.tar.bz2
drakx-d66af1d21b51e85255468b3832929e1526e30320.tar.xz
drakx-d66af1d21b51e85255468b3832929e1526e30320.zip
(get_text_coord) kill unused character
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ugtk2.pm4
1 files changed, 2 insertions, 2 deletions
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);