Rename %words to %hl

diff --git a/hl.pl b/hl.pl
index 1af2f58d2e683d7363cb4a18a443903c5da4233d..ce53996a0d76f09eee1ff40c8d6b0221dbd2a501 100755 (executable)
--- a/hl.pl
+++ b/hl.pl
@@ -20,7 +20,7 @@ sub guihl {
 
 hook_print 'Private Message to Dialog', sub { guihl; return EAT_NONE };
 
-my %words = (
+my %hl = (
  '#cpantesters' => [ qw/
     Acme-CPANAuthors-You-re_using
     B-RecDeparse
@@ -44,14 +44,14 @@ my %words = (
   / ],
 );
 
-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 {