diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-15 08:09:54 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-09-15 08:09:54 +0000 |
| commit | d66af1d21b51e85255468b3832929e1526e30320 (patch) | |
| tree | 58dbc5887509bfb83cb28653f94b1b8090c72dca | |
| parent | 1633d916dd49edac839b49bd20a3e21184669194 (diff) | |
| download | drakx-d66af1d21b51e85255468b3832929e1526e30320.tar drakx-d66af1d21b51e85255468b3832929e1526e30320.tar.gz drakx-d66af1d21b51e85255468b3832929e1526e30320.tar.bz2 drakx-d66af1d21b51e85255468b3832929e1526e30320.tar.xz drakx-d66af1d21b51e85255468b3832929e1526e30320.zip | |
(get_text_coord) kill unused character
| -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); |