X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=fadab099783cd36d42463cbb932910a515e399c1;hb=7312707b4a2412cb690a351dfc07dc144f0937e4;hp=b2ee9b2326690a4abc376196d91218a55333e73f;hpb=16c932699e360cd44811afc68894e55a1a128962;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);