X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=2ff2c8e59ae3dc44fd05892bccdcee24972ed90f;hb=e8c9de4454a23bab71b5a06d2e0059877f02413d;hp=1094578e61e08429ab4df159c237c75c2720708f;hpb=60d6599887f29ec966d075f413c2c73b9e913212;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 1094578e..2ff2c8e5 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1012,7 +1012,7 @@ sub disconnect
 	# broadcast to all other nodes that all the nodes connected to via me are gone
 	unless ($pc39flag && $pc39flag == 2)  {
 		$self->route_pc21($main::mycall, undef, @rout) if @rout;
-		$self->route_pc92d($main::mycall, undef, $node);
+		$self->route_pc92d($main::mycall, undef, $node) if $node;
 	}
 
 	# remove outstanding pings