X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=0fce7f25704c67b98c3f939cf90ccd3e9bf455b8;hb=42032b193f4411c08979c2cd8d1f39818d5de235;hp=6fcf028924eb6007fd6befe6b8613f29b20c4646;hpb=b67b50de92dbf61ce939b42f7c74e30dc58eba41;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 6fcf0289..0fce7f25 100644
--- 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;