delete $conn->{cmd};
$conn->{timeout}->del if $conn->{timeout};
delete $conn->{timeout};
+ $conn->nolinger;
&{$conn->{rproc}}($conn, "$dir$call|$sort");
$conn->_send_file("$main::data/connected") unless $conn->{outgoing};
}
if ($sock) {
my $conn = $server_conn->new($server_conn->{rproc});
$conn->{sock} = $sock;
+ $conn->nolinger;
Msg::blocking($sock, 0);
$conn->{blocking} = 0;
eval {$conn->{peerhost} = $sock->peerhost};