From 10bcae7d964cf5a4b9f7a439c29afff218a35903 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sun, 19 Apr 2020 21:18:30 +0100 Subject: [PATCH] adjust accept debugging a tad --- perl/Msg.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/perl/Msg.pm b/perl/Msg.pm index a8a1766b..e2092a90 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -498,9 +498,10 @@ sub new_client { $sock->on(read => sub {$conn->_rcv($_[1])}); $sock->timeout(0); $sock->start; - dbg((ref $conn) . "accept $conn->{cnum} from $conn->{peerhost} $conn->{peerport}") if isdbg('connll'); - - my ($rproc, $eproc) = &{$server_conn->{rproc}} ($conn, $conn->{peerhost} = $handle->peerhost, $conn->{peerport} = $handle->peerport); + $conn->{peerhost} = $handle->peerhost; + $conn->{peerport} = $handle->peerport; + dbg((ref $conn) . " accept $conn->{cnum} from $conn->{peerhost}:$conn->{peerport}") if isdbg('connll'); + my ($rproc, $eproc) = &{$server_conn->{rproc}} ($conn, $conn->{peerhost}, $conn->{peerport}); $conn->{sort} = 'Incoming'; if ($eproc) { $conn->{eproc} = $eproc; -- 2.43.0