From: minima <minima>
Date: Sat, 9 Jun 2001 23:00:15 +0000 (+0000)
Subject: alter disconnect slightly
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=b32570d9978c9e99a8652e52491cf92540bf876b;p=spider.git

alter disconnect slightly
---

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);