Description: drop the trailing semicolon after '@' in function prototypes
they are useless and perl 5.12 emits warnings about them
Author: Damyan Ivanov <dmn@debian.org>
Bug:
https://rt.cpan.org/Ticket/Display.html?id=68127
Bug-Debian:
http://bugs.debian.org/628128
Forwarded: yes
--- a/lib/Curses/UI/Container.pm
+++ b/lib/Curses/UI/Container.pm
@@ -64,7 +64,7 @@ DESTROY()
}
# Add an object to the container
-sub add($@;)
+sub add($@)
{
my $this = shift;
my $id = shift;
@@ -472,7 +472,7 @@ sub event_onblur()
}
-sub set_focusorder(@;)
+sub set_focusorder(@)
{
my $this = shift;
my @order = @_;
@@ -480,7 +480,7 @@ sub set_focusorder(@;)
return $this;
}
-sub set_draworder(@;)
+sub set_draworder(@)
{
my $this = shift;
my @order = @_;
--- a/lib/Curses/UI/Widget.pm
+++ b/lib/Curses/UI/Widget.pm
@@ -353,7 +353,7 @@ sub process_padding($;)
}
}
-sub width_by_windowscrwidth($@;)
+sub width_by_windowscrwidth($@)
{
my $width = shift || 0;
$width = shift if ref $width; # make $this->width... possible.
@@ -377,7 +377,7 @@ sub width_by_windowscrwidth($@;)
return $width;
}
-sub height_by_windowscrheight($@;)
+sub height_by_windowscrheight($@)
{
my $height = shift || 0;
$height = shift if ref $height; # make $this->height... possible.
@@ -895,7 +895,7 @@ sub set_routine($$;)
return $this;
}
-sub set_binding($@;)
+sub set_binding($@)
{
my $this = shift;
my $routine = shift;
@@ -921,7 +921,7 @@ sub set_binding($@;)
return $this;
}
-sub set_mouse_binding($@;)
+sub set_mouse_binding($@)
{
my $this = shift;
my $routine = shift;
--- a/lib/Curses/UI/Listbox.pm
+++ b/lib/Curses/UI/Listbox.pm
@@ -218,7 +218,7 @@ sub add_labels(;$)
}
-sub maxlabelwidth(@;)
+sub maxlabelwidth(@)
{
my %args = @_;
