fix (very) rare disconnect user just before disconnecting node bug.

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index c33d5aad747db115073cef08be9b4e8df4a117b5..96d6c353317b6835bdef03fe89b4d6c10b0ee2c2 100644 (file)
--- 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;