From 0702d383db04a014535eb7cba323da7e763e219d Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 22 Dec 2011 23:51:10 +0000
Subject: [PATCH] normalise peerhost on outgoing connects

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

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 52f0efd4..35290410 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -141,7 +141,7 @@ sub connect {
 
 		connect => [$to_host, $to_port],
 
-#		on_connect => sub {my $h = shift; $conn->{peerhost} = $h->handle->peername;},
+		on_connect => sub {my $h = shift; $conn->{peerhost} = shift;},
 
 		on_eof => sub {$conn->disconnect},
 
diff --git a/perl/Version.pm b/perl/Version.pm
index cfa5724a..fea0581e 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion);
 
 $version = '1.56';
 $subversion = '0';
-$build = '6';
-$gitversion = '7f629e3';
+$build = '7';
+$gitversion = 'a60f14f';
 
 1;
-- 
2.34.1