fix outgoing peerhost issues

diff --git a/perl/Msg.pm b/perl/Msg.pm
index b2ee9b2326690a4abc376196d91218a55333e73f..fadab099783cd36d42463cbb932910a515e399c1 100644 (file)
--- 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 6db53a72bf50737e3f09bdd2a499815a86f2d0eb..23560ca76189898fe752dd42bbd5105baf408b22 100644 (file)
--- 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;