diff options
Diffstat (limited to 'plugins/perl/lib/Xchat.pm')
| -rw-r--r-- | plugins/perl/lib/Xchat.pm | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/plugins/perl/lib/Xchat.pm b/plugins/perl/lib/Xchat.pm index 1849789b..cb1dc3d6 100644 --- a/plugins/perl/lib/Xchat.pm +++ b/plugins/perl/lib/Xchat.pm @@ -1,7 +1,3 @@ -BEGIN { - $INC{'Xchat.pm'} = 'DUMMY'; -} - $SIG{__WARN__} = sub { my $message = shift @_; my ($package) = caller; @@ -141,7 +137,7 @@ sub hook_server { my $pkg_info = Xchat::Embed::pkg_info( $package ); my $hook = Xchat::Internal::hook_server( - $message, $priority, $callback, $data + $message, $priority, $callback, $data, $package ); push @{$pkg_info->{hooks}}, $hook if defined $hook; return $hook; @@ -165,7 +161,7 @@ sub hook_command { my $pkg_info = Xchat::Embed::pkg_info( $package ); my $hook = Xchat::Internal::hook_command( - $command, $priority, $callback, $help_text, $data + $command, $priority, $callback, $help_text, $data, $package ); push @{$pkg_info->{hooks}}, $hook if defined $hook; return $hook; @@ -242,7 +238,7 @@ sub hook_print { my $pkg_info = Xchat::Embed::pkg_info( $package ); my $hook = Xchat::Internal::hook_print( - $event, $priority, $callback, $data + $event, $priority, $callback, $data, $package ); push @{$pkg_info->{hooks}}, $hook if defined $hook; return $hook; @@ -276,7 +272,7 @@ sub hook_fd { my $fileno = fileno $fd; return undef unless defined $fileno; # no underlying fd for this handle - my ($package) = Xchat::Embed::find_pkg(); + my $package = Xchat::Embed::find_pkg(); $callback = Xchat::Embed::fix_callback( $package, $callback ); my ($flags, $data) = (Xchat::FD_READ, undef); @@ -297,7 +293,8 @@ sub hook_fd { my $hook = Xchat::Internal::hook_fd( $fileno, $cb, $flags, { DATA => $data, FD => $fd, CB => $callback, FLAGS => $flags, - } + }, + $package ); push @{$pkg_info->{hooks}}, $hook if defined $hook; return $hook; |