From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 15 Sep 2013 10:40:09 +0000 (+0100)
Subject: fix outgoing peerhost issues
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=7312707b4a2412cb690a351dfc07dc144f0937e4;p=spider.git

fix outgoing peerhost issues
---

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);
diff --git a/perl/Version.pm b/perl/Version.pm
index 6db53a72..23560ca7 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -10,7 +10,7 @@ package main;
 use vars qw($version $build $gitversion);
 
 $version = '1.57';
-$build = '3';
-$gitversion = '16c9326';
+$build = '4';
+$gitversion = '316a74d';
 
 1;