leave the pc19 in the list for longer

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 118743e1f23ff03e5da83279c3c90ba8086b90ef..5f910bbbc4cc6ffd99ef40426f447797ce6b49b8 100644 (file)
--- 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');