From b32570d9978c9e99a8652e52491cf92540bf876b Mon Sep 17 00:00:00 2001 From: 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