From: Vincent Pit Date: Sat, 10 Mar 2012 12:20:27 +0000 (+0100) Subject: Fix Xchat::XPI::Events::{delay,filter} not passing the right arguments X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=ffce0ac1da463a72159ea12236e1be85d9361383;p=perl%2Fscripts%2Fxchat.git Fix Xchat::XPI::Events::{delay,filter} not passing the right arguments --- diff --git a/Xchat/XPI/Events.pm b/Xchat/XPI/Events.pm index 52fb57c..d851caa 100644 --- a/Xchat/XPI/Events.pm +++ b/Xchat/XPI/Events.pm @@ -18,7 +18,7 @@ sub _delay_cb { } sub delay { - my $delay = $_[0]; + my $delay = shift; if (defined $delay) { $delay = int $delay; @@ -42,7 +42,9 @@ sub _filter_cb { } sub filter { - hook_print $_[0], \&_filter_cb, { data => \@_ }; + my $from = shift; + + hook_print $from, \&_filter_cb, { data => \@_ }; } use base qw;