X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;fp=perl%2FMsg.pm;h=e2092a90eeb941b06ce35a2c32f01382370a46ae;hb=10bcae7d964cf5a4b9f7a439c29afff218a35903;hp=a8a1766ba150f92760d586904a2da9cb1bcf639c;hpb=b43b533709ed2bb51df19b5aebe3c668a9986cce;p=spider.git

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;