From 0702d383db04a014535eb7cba323da7e763e219d Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0