From: Vincent Pit <vince@profvince.com>
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<Exporter>;