projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
allow 't <call>' for swopping from announces as well
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 18367bdfa76982c2b207cdc27b77b5bf1f75ba83..6986a41aa60b1d8188dbc06d7ce4715a32eb35c1 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-707,7
+707,7
@@
sub announce
if ($suppress_ann_to_talk) {
my ($to, $call) = $text =~ /^\s*([\w-]+)[\s:]+([\w-]+)/;
if ($suppress_ann_to_talk) {
my ($to, $call) = $text =~ /^\s*([\w-]+)[\s:]+([\w-]+)/;
- return if ($to && $call && ((uc $to
eq 'TO'
&& is_callsign(uc $call)) || is_callsign($call = uc $to)));
+ return if ($to && $call && ((uc $to
=~ /^TO?$/
&& is_callsign(uc $call)) || is_callsign($call = uc $to)));
}
if ($self->{annfilter}) {
}
if ($self->{annfilter}) {