X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=153618f9dc182f6a33bd1ee238130f121eef7bde;hb=428e91daacae4fddcabc7e6279c1fbd40edbbe91;hp=02e3d3a80319741db555289dab5d85b8bc9b32bc;hpb=66ff43a4977e5877448981a7e3674a5c52b214ed;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 02e3d3a8..153618f9 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -522,7 +522,9 @@ sub normal
 				if ($ann_to_talk) {
 					my ($to, $call) = $field[3] =~ /^\s*([\w-]+)[\s:]+([\w-]+)/;
 					if ($to && $call) {
-						if ((uc $to eq 'TO' && is_callsign(uc $call)) || is_callsign($call = uc $to)) {
+						$to = uc $to;
+						$call = uc $call;
+						if (($to =~ /^TO?$/ && is_callsign($call)) || is_callsign($call = $to)) {
 							my $ref = Route::get($call);
 							if ($ref) {
 								my $dxchan = $ref->dxchan;