remove ::ffff: at source on connect

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 83c82be6e1a70bcb04433187b1df6ca020d3046d..ceace3ca774c62603b22f2ab8577f8907c4af5f4 100644 (file)
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -205,6 +205,7 @@ sub peerhost
        $conn->{peerhost} ||= 'ax25' if $conn->ax25;
        $conn->{peerhost} ||= $conn->{sock}->peerhost if $conn->{sock} && $conn->{sock}->isa('IO::Socket::INET');
        $conn->{peerhost} ||= 'UNKNOWN';
+       $conn->{peerhost} =~ s/^::ffff://;
        return $conn->{peerhost};
 }