projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
112a95f
)
again?
author
minima
<minima>
Wed, 14 Mar 2001 00:17:46 +0000
(
00:17
+0000)
committer
minima
<minima>
Wed, 14 Mar 2001 00:17:46 +0000
(
00:17
+0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 2677cb7ef56cb3a6df58876d2cbcccec314d793f..a7ef30c2831a5d7e76665f079ad26b6dae6b7317 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1155,12
+1155,10
@@
sub finish
$mref->stop_msg($call) if $mref;
# broadcast to all other nodes that all the nodes connected to via me are gone
$mref->stop_msg($call) if $mref;
# broadcast to all other nodes that all the nodes connected to via me are gone
- my @gonenodes = grep { $_->dxchan != $self && $_->dxchan != $me } DXNode::get_all();
- my $node;
-
- foreach my $dxchan (DXChannel::get_all_nodes) {
- next if $dxchan == $self || $dxchan == $me;
- broadcast_ak1a(pc21($dxchan->call, 'Gone') , $self) unless $self->{isolate};
+ foreach my $node (grep { $_->dxchan == $self } DXNode::get_all) {
+ next if $node->call eq $call;
+ next if $node->call eq $main::mycall;
+ broadcast_ak1a(pc21($node->call, 'Gone.'), $self) unless $self->{isolate};
}
# remove outstanding pings
}
# remove outstanding pings