diff options
| -rw-r--r-- | perl-install/ugtk2.pm | 4 |
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); |