$pre .= '*' unless $pre =~ /[\*\?\[]/o;
$pre = shellregex($pre);
$expr = "\$f1 =~ m{$pre}";
- $pre =~ s/\^//;
+ $pre =~ s/[\^\$]//g;
$hint = "m{\U$pre}";
}
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;
if ($spotter) {
$expr .= " && " if $expr;
$spotter = shellregex($spotter);
- $expr .= "\$f4 =~ m{$spotter}";
+ $expr .= "\$f4 =~ m{\U$spotter}";
$hint .= " && " if $hint;
- $hint .= "m{$spotter}";
+ $spotter =~ s/[\^\$]//g;
+ $hint .= "m{\U$spotter}";
}
# qsl requests