From 7312707b4a2412cb690a351dfc07dc144f0937e4 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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