]> dxcluster.org Git - spider.git/commitdiff
fix outgoing peerhost issues
authorDirk Koopman <djk@tobit.co.uk>
Sun, 15 Sep 2013 10:40:09 +0000 (11:40 +0100)
committerDirk Koopman <djk@tobit.co.uk>
Sun, 15 Sep 2013 10:40:09 +0000 (11:40 +0100)
perl/Msg.pm
perl/Version.pm

index b2ee9b2326690a4abc376196d91218a55333e73f..fadab099783cd36d42463cbb932910a515e399c1 100644 (file)
@@ -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);
index 6db53a72bf50737e3f09bdd2a499815a86f2d0eb..23560ca76189898fe752dd42bbd5105baf408b22 100644 (file)
@@ -10,7 +10,7 @@ package main;
 use vars qw($version $build $gitversion);
 
 $version = '1.57';
-$build = '3';
-$gitversion = '16c9326';
+$build = '4';
+$gitversion = '316a74d';
 
 1;