hook_print 'Private Message to Dialog', sub { guihl; return EAT_NONE };
-my %words = (
- '#cpantesters' => [ qw/Linux-SysInfo MorseSignals Regexp-Wildcards Scalar-Vec-Util Sub-Prototype-Util Test-Valgrind Variable-Magic with- B-RecDeparse Sub-Nary indirect- subs-auto/ ]
+my %hl = (
+ '#cpantesters' => [ qw/
+ Acme-CPANAuthors-You-re_using
+ B-RecDeparse
+ CPANPLUS-Dist-Gentoo
+ Lexical-Types
+ Linux-SysInfo
+ MorseSignals
+ Perl-Critic-Policy-Dynamic-NoIndirect
+ Regexp-Wildcards
+ Scalar-Vec-Util
+ Scope-Upper
+ Sub-Nary
+ Sub-Prototype-Util
+ Test-Valgrind
+ Thread-Cleanup
+ Variable-Magic
+ indirect-
+ rgit-
+ subs-auto
+ with-
+ / ],
);
-for (keys %words) {
- my $rx = '(?:' . (join '|', @{$words{$_}}) . ')';
- $words{$_} = qr/$rx/;
+for (keys %hl) {
+ my $rx = '(?:' . join('|', @{$hl{$_}}) . ')';
+ $hl{$_} = qr/$rx/;
}
filter 'Channel Action' => sub {
my $chan = lc get_info 'channel';
- if ($words{$chan} and $_[1] =~ /$words{$chan}/) {
+ if ($hl{$chan} and $_[1] =~ /$hl{$chan}/) {
guihl;
1;
} else {