X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=hl.pl;h=7d1278b2d096ec9c95c20620e834b9cdbc0c4a1e;hb=9db5de0ec290fd8b82a9c510e0d627b31e44d9bd;hp=fdaaf5cb89477d755e54fc52d7b37c39b0a3539c;hpb=b9c3e00cbf52ff5ddb0d79fd66a6877f6feb508d;p=perl%2Fscripts%2Fxchat.git

diff --git a/hl.pl b/hl.pl
index fdaaf5c..7d1278b 100755
--- a/hl.pl
+++ b/hl.pl
@@ -3,13 +3,13 @@ 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<filter>;
 
-our $VERSION = '0.03';
+our $VERSION = '0.04';
 
 my $ph;
 
@@ -25,27 +25,30 @@ 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
     CPANPLUS-Dist-Gentoo
+    IPC-MorseSignals
     Lexical-Types
     Linux-SysInfo
-    MorseSignals
     Perl-Critic-Policy-Dynamic-NoIndirect
     Regexp-Wildcards
     Scalar-Vec-Util
     Scope-Upper
     Sub-Nary
+    Sub-Op
     Sub-Prototype-Util
     Test-Valgrind
     Thread-Cleanup
     Variable-Magic
+    autovivification-
     indirect-
     rgit-
     subs-auto
-    with-
-  / ],
+    \bwith-
+  > ],
 );
 
 for (keys %hl) {