X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=b4ff5f655f4701be2edcb151be015d5233b6c6cb;hb=465426f9282b990ec3462c63e5ca7613f92fb290;hp=67f64b79064616092577d3cbabab6629a26cc7ca;hpb=f534cd884051603e9f0368b912afa355e7a2310f;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 67f64b79..b4ff5f65 100644
--- 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());
+		# remove from outstanding connects queue
+		@main::outstanding_connects = grep {$_->{call} ne $call} @main::outstanding_connects;
 	}
 	$self->state('init');
 	$self->pc50_t(time);