$conn->{peerhost} = eval { $handle->peerhost; };
dbg((ref $conn) . " connected $conn->{cnum} to $conn->{peerhost}:$conn->{peerport}") if isdbg('connll');
if ($conn->{on_connect}) {
$conn->{peerhost} = eval { $handle->peerhost; };
dbg((ref $conn) . " connected $conn->{cnum} to $conn->{peerhost}:$conn->{peerport}") if isdbg('connll');
if ($conn->{on_connect}) {
- my ($pkg, $to_host, $to_port, $rproc, %args) = @_;
+ my ($pkg, $to_host, $to_port, %args) = @_;
my $sock;
$conn->{sock} = $sock = Mojo::IOLoop::Client->new;
$sock->on(connect => sub {$conn->_on_connect($_[1])} );
my $sock;
$conn->{sock} = $sock = Mojo::IOLoop::Client->new;
$sock->on(connect => sub {$conn->_on_connect($_[1])} );
$sock->on(close => sub {$conn->disconnect});
# copy any args like on_connect, on_disconnect etc
$sock->on(close => sub {$conn->disconnect});
# copy any args like on_connect, on_disconnect etc