X-Git-Url: http://git.vpit.fr/?p=perl%2Fscripts%2Fxchat.git;a=blobdiff_plain;f=Xchat%2FXPI%2FUtils.pm;h=8df6c0e61465ecbc1a271abc37669161b5be2fa2;hp=6fa15c1e4524ea9f6f0c94d56f5d08bb8e28d90f;hb=9db5de0ec290fd8b82a9c510e0d627b31e44d9bd;hpb=80f827633d7173e4388bfce83f6bb304f37cecab diff --git a/Xchat/XPI/Utils.pm b/Xchat/XPI/Utils.pm index 6fa15c1..8df6c0e 100644 --- a/Xchat/XPI/Utils.pm +++ b/Xchat/XPI/Utils.pm @@ -3,10 +3,10 @@ package Xchat::XPI::Utils; use strict; use warnings; -use Xchat qw/:all/; +use Xchat qw<:all>; use lib get_info 'xchatdir'; -use Xchat::XPI qw/register init/; +use Xchat::XPI qw; our $VERSION = '0.02'; @@ -20,10 +20,10 @@ sub dye_nick { return sprintf "\003%d%s", $rcolors[$col], $nick; } -use base qw/Exporter/; +use base qw; our @EXPORT = (); -our %EXPORT_TAGS = ('funcs' => [ qw/dye_nick/ ]); +our %EXPORT_TAGS = ('funcs' => [ qw ]); our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];