X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=a16ec89f9dbe20ee1c33fe4ae4f4f1cb17c8abdd;hb=2fc6c64fec914c8f6b739beee9f0f8a180ea6123;hp=b6c0b75903f61497b0343cad62899d09ab0d7eca;hpb=4b207544da78b182bd12e94eab01451694749012;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index b6c0b759..a16ec89f 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -33,6 +33,7 @@ use Route;
 use Route::Node;
 use Script;
 use DXProtHandle;
+use DXCIDR;
 
 use strict;
 
@@ -555,7 +556,9 @@ sub send_dx_spot
 	# taking into account filtering and so on
 	foreach $dxchan (@dxchan) {
 		next if $dxchan == $main::me;
-		next if $dxchan == $self && $self->is_node;
+#		next if $dxchan == $self && $self->is_node;
+		next if $dxchan == $self; # the spot is sent back to me by dx command
+
 		if ($line =~ /PC61/ && !($dxchan->is_spider || $dxchan->is_user)) {
 			unless ($pc11) {
 				my @f = split /\^/, $line;