X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FMsg.pm;h=fadab099783cd36d42463cbb932910a515e399c1;hb=7312707b4a2412cb690a351dfc07dc144f0937e4;hp=b2ee9b2326690a4abc376196d91218a55333e73f;hpb=316a74dd2225b10f62d2b18ab2385d6906b9ae62;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index b2ee9b23..fadab099 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -140,6 +140,7 @@ sub _on_connect
 	$sock->on(close => sub {$conn->disconnect;});
 	$sock->timeout(0);
 	$sock->start;
+	$conn->{peerhost} = eval { $handle->peerhost; };
 	dbg((ref $conn) . " connected $conn->{cnum} to $conn->{peerhost}:$conn->{peerport}") if isdbg('connll');
 	if ($conn->{on_connect}) {
 		&{$conn->{on_connect}}($conn);