fix outgoing peerhost issues

[spider.git] / perl / Msg.pm

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);