for ($i = 0; $i < @freq; $i += 2) {
$expr .= "(\$f0 >= $freq[$i] && \$f0 <= $freq[$i+1]) ||";
my $r = Spot::ftor($freq[$i], $freq[$i+1]);
- $hint .= "m{$r} ||" if $r;
+ $hint .= "m{$r\\.} ||" if $r;
}
chop $expr; chop $expr;
chop $hint; chop $hint;
# any spotter
if ($spotter) {
$expr .= " && " if $expr;
+ $spotter .= '*' unless $spotter =~ /[\*\?\[]/o;
$spotter = shellregex($spotter);
$expr .= "\$f4 =~ m{\U$spotter}";
$hint .= " && " if $hint;