From 0bca43685143e42a93bdcdaa9e34e115b22552e9 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Fri, 7 Jan 2022 09:55:45 +0000
Subject: [PATCH] remove ::ffff: at source on connect

---
 Changes     | 2 ++
 perl/Msg.pm | 1 +
 2 files changed, 3 insertions(+)

diff --git a/Changes b/Changes
index 0f9fff5f..8c8829e3 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+06Jan22=======================================================================
+1. Backport various Mojo branch "security" fixes. 
 12Dec21=======================================================================
 1. fix git describe et al AGAIN to cope with (very) old (2009) git versions.
 2. Change version strings to include perl version in use.
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};
 }
 
-- 
2.34.1