projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
changed FileHandle to IO::File in cmds
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index d9abfad6f3a4d6f17c1ae236a61ed9557aa2687b..17328bc2cc6ee79c9e31d76cd31cd8df929d393d 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-389,7
+389,7
@@
sub normal
# now check the call over
my $node = DXCluster->get_exact($call);
if ($node) {
# now check the call over
my $node = DXCluster->get_exact($call);
if ($node) {
- my $dxchan;
+ my $dxchan;
if (($dxchan = DXChannel->get($call)) && $dxchan != $self) {
dbg('chan', "LOOP: $call connected locally");
}
if (($dxchan = DXChannel->get($call)) && $dxchan != $self) {
dbg('chan', "LOOP: $call connected locally");
}
@@
-661,6
+661,7
@@
sub normal
if ($pcno == 50) { # keep alive/user list
my $node = DXCluster->get_exact($field[1]);
if ($node) {
if ($pcno == 50) { # keep alive/user list
my $node = DXCluster->get_exact($field[1]);
if ($node) {
+ return unless $node->isa('DXNode');
return unless $node->dxchan == $self;
$node->update_users($field[2]);
}
return unless $node->dxchan == $self;
$node->update_users($field[2]);
}