From 7312707b4a2412cb690a351dfc07dc144f0937e4 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Sun, 15 Sep 2013 11:40:09 +0100
Subject: [PATCH] fix outgoing peerhost issues

---
 perl/Msg.pm     | 1 +
 perl/Version.pm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

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;
-- 
2.43.0