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;
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) {