projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
edc4edf
)
remove ::ffff: at source on connect
author
Dirk Koopman
<djk@tobit.co.uk>
Fri, 7 Jan 2022 09:55:45 +0000
(09:55 +0000)
committer
Dirk Koopman
<djk@tobit.co.uk>
Fri, 7 Jan 2022 09:55:45 +0000
(09:55 +0000)
Changes
patch
|
blob
|
history
perl/Msg.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 0f9fff5f0ad98bb831cb405913c75c9905de70eb..8c8829e3e7c45088072862f7bd19e83f1e50facb 100644
(file)
--- 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.
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 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} ||= '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};
}
return $conn->{peerhost};
}