projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6093d25
)
sort out the cluster table further
author
minima
<minima>
Tue, 13 Mar 2001 23:57:16 +0000
(23:57 +0000)
committer
minima
<minima>
Tue, 13 Mar 2001 23:57:16 +0000
(23:57 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 060fb48a860f63de95d0430f0788ed4b498ab3e5..b85f2391d90f0f084d45af53853e02616cd93d58 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1158,8
+1158,9
@@
sub finish
my @gonenodes = grep { $_->dxchan != $self && $_->dxchan != $me } DXNode::get_all();
my $node;
- foreach $node (
@gonenodes
) {
+ foreach $node (
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};
$node->del();
}