X-Git-Url: http://git.vpit.fr/?p=perl%2Fscripts%2Fxchat.git;a=blobdiff_plain;f=Xchat%2FXPI%2FEvents.pm;fp=Xchat%2FXPI%2FEvents.pm;h=3b3963b32f502359a748ecbd0d26972bdc103b48;hp=0f120a543e5ed6ef38fe6f2344b530eafe99051d;hb=4d2f1a94053d536b838ab1601317dcfae36ad789;hpb=b87fc463b2f4f807fc7860438eed18a00f5c0e12

diff --git a/Xchat/XPI/Events.pm b/Xchat/XPI/Events.pm
index 0f120a5..3b3963b 100644
--- a/Xchat/XPI/Events.pm
+++ b/Xchat/XPI/Events.pm
@@ -21,7 +21,7 @@ sub _delay_cb {
 }
 
 sub delay {
- my $delay = shift;
+ my ($delay, @args) = @_;
 
  if (defined $delay) {
   $delay = int $delay;
@@ -30,7 +30,7 @@ sub delay {
  }
 
  called_from_script {
-  hook_timer $delay, \&_delay_cb, { data => \@_ }
+  hook_timer $delay, \&_delay_cb, { data => \@args }
  }
 }
 
@@ -47,10 +47,10 @@ sub _filter_cb {
 }
 
 sub filter {
- my $from = shift;
+ my ($from, $cb, $to) = @_;
 
  called_from_script {
-  hook_print $from, \&_filter_cb, { data => \@_ }
+  hook_print $from, \&_filter_cb, { data => [ $cb, $to ] }
  }
 }