projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix disappeared messages
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 6b7d1b949bf363a5c640e2405fef3d38e0e95fec..8687a4943d446c920152a73b9657ae7a0ce5c1fc 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-1701,8
+1701,8
@@
sub disconnect
# create a list of all the nodes that have gone and delete them from the table
my @nodes;
# create a list of all the nodes that have gone and delete them from the table
my @nodes;
- foreach my $node (grep { $_->dxchan
== $self
} DXNode::get_all) {
- next if $node->
dxchan
call eq $call;
+ foreach my $node (grep { $_->dxchan
call eq $call
} DXNode::get_all) {
+ next if $node->call eq $call;
next if $node->call eq $main::mycall;
push @nodes, $node->call;
$node->del;
next if $node->call eq $main::mycall;
push @nodes, $node->call;
$node->del;