case-insensitive. I think it used to be and i accidentally changed it
when i changed the substitution operation to matching.
# Walk the filter's list of match/expression pairs.
foreach $pair (@filter) {
($match, $expression) = @$pair;
- if ($contents =~ /$match/) {
+ if ($contents =~ /$match/i) {
if (eval "\$result = \"$expression\"") {
return $result;
}