From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 22 Dec 2011 23:51:10 +0000 (+0000)
Subject: normalise peerhost on outgoing connects
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=0702d383db04a014535eb7cba323da7e763e219d;p=spider.git

normalise peerhost on outgoing connects
---

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;