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

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index ca6e4728..02e3d3a8 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -525,7 +525,8 @@ sub normal
 						if ((uc $to eq 'TO' && is_callsign(uc $call)) || is_callsign($call = uc $to)) {
 							my $ref = Route::get($call);
 							if ($ref) {
-								$ref->dxchan->talk($field[1], $call, undef, $field[3], $field[5]);
+								my $dxchan = $ref->dxchan;
+								$dxchan->talk($field[1], $call, undef, $field[3], $field[5]) if $dxchan != $self;
 								return;
 							}
 						}