fix some little problems with disconnects

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6fcf028924eb6007fd6befe6b8613f29b20c4646..0fce7f25704c67b98c3f939cf90ccd3e9bf455b8 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1765,7 +1765,7 @@ sub disconnect
 
        # do routing stuff
        my $pref = Route::Node::get($self->{call});
-       my @rout = $pref->del_nodes;
+       my @rout = $pref->del_nodes if $pref;
        push @rout, $main::routeroot->del_node($call);
        dbg('route', "B/C PC21 (from PC39) for: " . join(',', (map{ $_->call } @rout))) if @rout;