Simplify ignore map

As suggested by @zachthompson, we use a multi-statement map instead of
do.
master
Ben Moon 2016-05-14 11:39:02 +01:00
parent 67d912dc8c
commit 903e0bbf50
1 changed files with 3 additions and 5 deletions

View File

@ -114,11 +114,9 @@ my $aliases = get_aliases();
my ($trigger_ignore, %trigger_lookup) = generate_triggers($aliases);
my %ignore_re = map {
$_ => do {
my $i = join '|', sort { length $b <=> length $a }
(keys %{$trigger_ignore->{$_}});
qr/\b(?:$i)\b/;
};
my $i = join '|', sort { length $b <=> length $a }
keys %{$trigger_ignore->{$_}};
$_ => qr/\b(?:$i)\b/;
} (keys %{$trigger_ignore});
handle remainder_lc => sub {