X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=5f910bbbc4cc6ffd99ef40426f447797ce6b49b8;hb=e8df1ab836f28cc7a703c524af0410070d4258cb;hp=118743e1f23ff03e5da83279c3c90ba8086b90ef;hpb=31fca8dfb43587fe8f7b6bb657bfa654e7a8566b;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 118743e1..5f910bbb 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -647,8 +647,6 @@ sub normal
 			unless ($parent) {
 				my $nl = $pc19list{$ncall};
 
-				delete $pc19list{$ncall} if $nl;             # whatever happens - it goes 
-					
 				if ($nl && @field > 3) {                     # 3 because of the hop count!
 
 					# this is a new (remembered) node, now attach it to me if it isn't in filtered
@@ -690,6 +688,7 @@ sub normal
 						} else {
 							return;
 						}
+						delete $pc19list{$ncall};
 					}
 				} else {
 					dbg("PCPROT: Node $ncall not in config") if isdbg('chanerr');