X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=96d6c353317b6835bdef03fe89b4d6c10b0ee2c2;hb=3d7b8f73c5a0a75fddfcc701a9c790ea3339a950;hp=c33d5aad747db115073cef08be9b4e8df4a117b5;hpb=2b876ea3b583a06b30637b5c12776f69f47db3f5;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index c33d5aad..96d6c353 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -840,7 +840,7 @@ sub send_pc92_update
 
 sub time_out_pc92_routes
 {
-	my @nodes = grep {$_->do_pc92 || $_->via_pc92} Route::Node::get_all();
+	my @nodes = grep {$_->call ne $main::mycall && ($_->do_pc92 || $_->via_pc92)} Route::Node::get_all();
 	my @rdel;
 	foreach my $n (@nodes) {
 		my $o = $n->dec_obs;