X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=42479d86216ff9a43df0d773f77be59bbe417ebc;hb=85915352f85d7fbb42bee4cf8f6a684c62b96dc9;hp=7ad886fd16bc9f1cc8462077395fb32ec49c14fc;hpb=d626e783adc2de0d666098c631d1f0aa8abc9f68;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 7ad886fd..42479d86 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1187,7 +1187,7 @@ sub disconnect
 
 	# here we determine what needs to go out of the routing table
 	my @rout;
-	if ($node) {
+	if ($node && $pc39flag != 2) {
 		dbg('%Route::Node::List = ' . join(',', sort keys %Route::Node::list)) if isdbg('routedisc');
 
 		@rout = $node->del($main::routeroot);