X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=9a6f8d1f06894cd25d749afc9d2bac8019fd132d;hb=deb52e701a0db351d06eb6fe14872dc2fa7a51cb;hp=8992d3c108b85d94886bd3b2d0bf213740eeec94;hpb=007511abd2f678130afcc778d60bad0447411b0b;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 8992d3c1..9a6f8d1f 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -133,6 +133,7 @@ sub peerhost
 		$conn->{peerhost} ||= $conn->{sock}->handle->peerhost if $conn->{sock};
 		$conn->{peerhost} ||= 'UNKNOWN';
 	}
+	$conn->{peerhost} =~ s/^::ffff://;
 	return $conn->{peerhost};
 }