X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FMsg.pm;fp=perl%2FMsg.pm;h=ceace3ca774c62603b22f2ab8577f8907c4af5f4;hp=83c82be6e1a70bcb04433187b1df6ca020d3046d;hb=0bca43685143e42a93bdcdaa9e34e115b22552e9;hpb=edc4edfd6dce0f2f76c03cb651bc49ba268ef03c

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 83c82be6..ceace3ca 100644
--- 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};
 }