$conn->disconnect;
} else {
eval {$conn->{peerport} = $sock->peerport};
$conn->{peerport} = 0 if $@;
my ($rproc, $eproc) = &{$server_conn->{rproc}} ($conn, $conn->{peerhost}, $conn->{peerport});
$conn->disconnect;
} else {
eval {$conn->{peerport} = $sock->peerport};
$conn->{peerport} = 0 if $@;
my ($rproc, $eproc) = &{$server_conn->{rproc}} ($conn, $conn->{peerhost}, $conn->{peerport});