From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 19 Apr 2020 20:18:30 +0000 (+0100)
Subject: adjust accept debugging a tad
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=10bcae7d964cf5a4b9f7a439c29afff218a35903;p=spider.git

adjust accept debugging a tad
---

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;