X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Xchat%2FXPI%2FNet.pm;h=9cb99379a4d76a99e97f2d7b9745a4288daa089b;hb=9db5de0ec290fd8b82a9c510e0d627b31e44d9bd;hp=a7b267927059493c6d1060381db1f9a28071bc5c;hpb=d0506fe825279c4658116b8b09fabf51f943a8cd;p=perl%2Fscripts%2Fxchat.git diff --git a/Xchat/XPI/Net.pm b/Xchat/XPI/Net.pm index a7b2679..9cb9937 100644 --- a/Xchat/XPI/Net.pm +++ b/Xchat/XPI/Net.pm @@ -7,10 +7,10 @@ use IO::Socket::INET; use Net::DNS; -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.03'; @@ -110,10 +110,10 @@ sub _whois_recv { return REMOVE; } -use base qw/Exporter/; +use base qw; our @EXPORT = (); -our %EXPORT_TAGS = ('funcs' => [ qw/resolve whois/ ]); +our %EXPORT_TAGS = ('funcs' => [ qw ]); our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS; $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];