projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d99e357
)
further fix for DXProt
author
djk
<djk>
Mon, 31 May 1999 09:24:12 +0000
(09:24 +0000)
committer
djk
<djk>
Mon, 31 May 1999 09:24:12 +0000
(09:24 +0000)
perl/DXProt.pm
patch
|
blob
|
history
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 4bdb307fe49b589c5bd367fae12d66f4afceb552..19859af08d4789b95022e4962500506f8148ecb6 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-305,8
+305,8
@@
sub normal
if ($pcno == 16) { # add a user
my $node = DXCluster->get_exact($field[1]);
if ($pcno == 16) { # add a user
my $node = DXCluster->get_exact($field[1]);
-
last SWITCH if !
$node; # ignore if havn't seen a PC19 for this one yet
-
last SWITCH
unless $node->isa('DXNode');
+
return unless
$node; # ignore if havn't seen a PC19 for this one yet
+
return
unless $node->isa('DXNode');
if ($node->dxchan != $self) {
dbg('chan', "LOOP: come in on wrong channel");
return;
if ($node->dxchan != $self) {
dbg('chan', "LOOP: come in on wrong channel");
return;
@@
-341,7
+341,8
@@
sub normal
if ($pcno == 17) { # remove a user
my $node = DXCluster->get_exact($field[2]);
if ($pcno == 17) { # remove a user
my $node = DXCluster->get_exact($field[2]);
- last SWITCH unless $node->isa('DXNode');
+ return unless $node;
+ return unless $node->isa('DXNode');
if ($node->dxchan != $self) {
dbg('chan', "LOOP: come in on wrong channel");
return;
if ($node->dxchan != $self) {
dbg('chan', "LOOP: come in on wrong channel");
return;
@@
-367,12
+368,12
@@
sub normal
my $ver = $field[$i+3];
# now check the call over
my $ver = $field[$i+3];
# now check the call over
- my $node = DXCluster->get_exact($call);
# we already have this
+ my $node = DXCluster->get_exact($call);
if ($node && $node->dxchan != $self) {
dbg('chan', "LOOP: come in on wrong channel");
return;
}
if ($node && $node->dxchan != $self) {
dbg('chan', "LOOP: come in on wrong channel");
return;
}
- next if $node;
+ next if $node;
# we already have this
# check for sane parameters
next if $ver < 5000; # only works with version 5 software
# check for sane parameters
next if $ver < 5000; # only works with version 5 software