X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=hl.pl;h=7e76ba2c6cfb0e654a0a4aff635c8fca84e9e6d3;hb=dd329bf05f9a50bd10d79e522334761f9785d7ab;hp=5b67967ec415e0b07257c06280ca3b209e6bec09;hpb=70c8dbe5c65630fd27994d34a748fd05f2d5f968;p=perl%2Fscripts%2Fxchat.git diff --git a/hl.pl b/hl.pl index 5b67967..7e76ba2 100755 --- a/hl.pl +++ b/hl.pl @@ -3,11 +3,11 @@ package Xchat::VPIT::Highlight; use strict; use warnings; -use Xchat qw/:all/; +use Xchat qw<:all>; use lib get_info 'xchatdir'; use Xchat::XPI; -use Xchat::XPI::Events qw/filter/; +use Xchat::XPI::Events qw; our $VERSION = '0.04'; @@ -25,7 +25,7 @@ sub guiclear { hook_print 'Private Message to Dialog', sub { guihl; return EAT_NONE }; my %hl = ( - '#cpantesters' => [ qw/ + '#cpantesters' => [ qw< Acme-CPANAuthors-You-re_using B-RecDeparse Bit-MorseSignals @@ -48,7 +48,7 @@ my %hl = ( rgit- subs-auto \bwith- - / ], + > ], ); for (keys %hl) { @@ -95,6 +95,6 @@ $ph = Xchat::XPI->new( email => 'perl@profvince.com', url => 'http://www.profvince.com', ); - + 1;