X-Git-Url: http://git.vpit.fr/?p=perl%2Fscripts%2Fxchat.git;a=blobdiff_plain;f=Xchat%2FXPI%2FEvents.pm;h=f387f8ae7e6bc6915caeeda9cf4ea70b1180cc44;hp=2c753e151e41e9db7b3ada44a97e78300fd10408;hb=9db5de0ec290fd8b82a9c510e0d627b31e44d9bd;hpb=80f827633d7173e4388bfce83f6bb304f37cecab diff --git a/Xchat/XPI/Events.pm b/Xchat/XPI/Events.pm index 2c753e1..f387f8a 100644 --- a/Xchat/XPI/Events.pm +++ b/Xchat/XPI/Events.pm @@ -3,7 +3,7 @@ package Xchat::XPI::Events; use strict; use warnings; -use Xchat qw/:all/; +use Xchat qw<:all>; use lib get_info 'xchatdir'; use Xchat::XPI; @@ -42,12 +42,12 @@ sub filter { return hook_print $from, \&_filter_cb, { data => \@_ }; } -use base qw/Exporter/; +use base qw; our @EXPORT = (); our %EXPORT_TAGS = ( - 'funcs' => [ qw/delay filter/ ], - 'consts' => [ qw/DEFAULT_DELAY/ ] + 'funcs' => [ qw ], + 'consts' => [ qw ] ); our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];