projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add exit to Aliases
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index c099a92c4163050ebe63ad157296a9f2dccfa2b5..6bdb85cf617d08be72d155af7911c572544b3474 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1662,7
+1662,7
@@
sub disconnect
# broadcast to all other nodes that all the nodes connected to via me are gone
foreach my $node (grep { $_->dxchan == $self } DXNode::get_all) {
# broadcast to all other nodes that all the nodes connected to via me are gone
foreach my $node (grep { $_->dxchan == $self } DXNode::get_all) {
-
next if $node->call eq $call;
+
#
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;
next if $node->call eq $main::mycall;
broadcast_ak1a(pc21($node->call, 'Gone.'), $self) unless $self->{isolate};
$node->del;
@@
-1681,8
+1681,6
@@
sub disconnect
$self->tell_login('logoutn');
Log('DXProt', $call . " Disconnected");
$self->tell_login('logoutn');
Log('DXProt', $call . " Disconnected");
- my $ref = DXCluster->get_exact($call);
- $ref->del() if $ref;
$self->SUPER::disconnect;
}
$self->SUPER::disconnect;
}