X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Xchat%2FXPI%2FEvents.pm;h=0f120a543e5ed6ef38fe6f2344b530eafe99051d;hb=7e00cc69db0ee7a4379b5378f1673efc4b531ae8;hp=3bb797ffd1930287f46b0c9b696449dc2ce9984b;hpb=6233c622e5c4cceefc8ed019b5a9355a690f2050;p=perl%2Fscripts%2Fxchat.git

diff --git a/Xchat/XPI/Events.pm b/Xchat/XPI/Events.pm
index 3bb797f..0f120a5 100644
--- a/Xchat/XPI/Events.pm
+++ b/Xchat/XPI/Events.pm
@@ -6,7 +6,7 @@ use warnings;
 use Xchat qw<:all>;
 
 use lib get_info 'xchatdir';
-use Xchat::XPI;
+use Xchat::XPI::Utils qw<called_from_script>;
 
 use constant DEFAULT_DELAY => 1000;
 
@@ -21,7 +21,7 @@ sub _delay_cb {
 }
 
 sub delay {
- my $delay = $_[0];
+ my $delay = shift;
 
  if (defined $delay) {
   $delay = int $delay;
@@ -29,7 +29,9 @@ sub delay {
   $delay = DEFAULT_DELAY;
  }
 
- hook_timer $delay, \&_delay_cb, { data => \@_ };
+ called_from_script {
+  hook_timer $delay, \&_delay_cb, { data => \@_ }
+ }
 }
 
 sub _filter_cb {
@@ -45,7 +47,11 @@ sub _filter_cb {
 }
 
 sub filter {
- hook_print $_[0], \&_filter_cb, { data => \@_ };
+ my $from = shift;
+
+ called_from_script {
+  hook_print $from, \&_filter_cb, { data => \@_ }
+ }
 }
 
 use base qw<Exporter>;