X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=394f7cf1e8b2d061334e57cf86fecb79a6b923dc;hb=b32570d9978c9e99a8652e52491cf92540bf876b;hp=3720008a03eb75770b9f7578251d54e20bc57317;hpb=1fae727d9da6945d99ccdcb79436eb579b47a3b7;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 3720008a..394f7cf1 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1664,9 +1664,11 @@ sub disconnect
 
 	# do routing stuff
 	my $node = Route::Node::get($call);
-	my @rout = $node->del_nodes;    # at the next level
-
-	@rout = $node->del($main::routeroot) if $node;
+	my @rout;
+	if ($node) {
+		@rout = $node->del_nodes;    # at the next level
+		@rout = $node->del($main::routeroot);
+	}
 	
 	# unbusy and stop and outgoing mail
 	my $mref = DXMsg::get_busy($call);