alter disconnect slightly

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 3720008a03eb75770b9f7578251d54e20bc57317..394f7cf1e8b2d061334e57cf86fecb79a6b923dc 100644 (file)
--- 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);