From b32570d9978c9e99a8652e52491cf92540bf876b Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 9 Jun 2001 23:00:15 +0000
Subject: [PATCH] alter disconnect slightly

---
 perl/DXProt.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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