X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=opers.pl;h=988a22a7688c3931215ca4cadff123faf57638d1;hb=e764db53b60b217e3d417c6faa60ba9bda6db3ea;hp=2500f83441e09f1bce7fb2d87c34efba16550ba5;hpb=c72e6cd5e28d8dddf65c292d1d7f1ea5ad4be129;p=perl%2Fscripts%2Fxchat.git diff --git a/opers.pl b/opers.pl index 2500f83..988a22a 100755 --- a/opers.pl +++ b/opers.pl @@ -3,7 +3,7 @@ package Xchat::VPIT::Opers; use strict; use warnings; -use Xchat qw/:all/; +use Xchat qw<:all>; use lib get_info 'xchatdir'; use Xchat::XPI; @@ -94,12 +94,14 @@ hook_command 'OPSCAN', sub { help_text => 'OPSCAN, scan for IRC operators in the current channel' }; -$ph = new Xchat::XPI name => 'Operators', - tag => 'Opers', - desc => 'IRC operators scanner', - author => 'Vincent Pit (VPIT)', - email => 'perl@profvince.com', - url => 'http://www.profvince.com', - unload => sub { undef %opers; }; +$ph = Xchat::XPI->new( + name => 'Operators', + tag => 'Opers', + desc => 'IRC operators scanner', + author => 'Vincent Pit (VPIT)', + email => 'perl@profvince.com', + url => 'http://www.profvince.com', + unload => sub { undef %opers }, +); 1;