projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
force PC39 on ak1a disconnects
[spider.git]
/
perl
/
DXProt.pm
diff --git
a/perl/DXProt.pm
b/perl/DXProt.pm
index 67f64b79064616092577d3cbabab6629a26cc7ca..b4ff5f655f4701be2edcb151be015d5233b6c6cb 100644
(file)
--- a/
perl/DXProt.pm
+++ b/
perl/DXProt.pm
@@
-130,6
+130,8
@@
sub start
if (!$self->{outbound}) {
$self->send(pc38()) if DXNode->get_all();
$self->send(pc18());
if (!$self->{outbound}) {
$self->send(pc38()) if DXNode->get_all();
$self->send(pc18());
+ # remove from outstanding connects queue
+ @main::outstanding_connects = grep {$_->{call} ne $call} @main::outstanding_connects;
}
$self->state('init');
$self->pc50_t(time);
}
$self->state('init');
$self->pc50_t(time);