From 56bf3b59ee44ce798722fc9d6ecdec078f5bded1 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Mon, 7 Aug 2017 15:16:03 +0000
Subject: [PATCH] TcpServerUtils.pm: report peer address on SSL error (Forum
 #75155)

git-svn-id: https://svn.fhem.de/fhem/trunk@14862 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/TcpServerUtils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/FHEM/TcpServerUtils.pm b/fhem/FHEM/TcpServerUtils.pm
index cedb6a705..89f5a9f5c 100644
--- a/fhem/FHEM/TcpServerUtils.pm
+++ b/fhem/FHEM/TcpServerUtils.pm
@@ -125,7 +125,7 @@ TcpServer_Accept($$)
       && $err ne "Socket is not connected") {
       $err = "" if(!$err);
       $err .= " ".($SSL_ERROR ? $SSL_ERROR : IO::Socket::SSL::errstr());
-      Log3 $name, 1, "$type SSL/HTTPS error: $err"
+      Log3 $name, 1, "$type SSL/HTTPS error: $err (peer: $caddr)"
         if($err !~ m/error:00000000:lib.0.:func.0.:reason.0./); #Forum 56364
       close($clientinfo[0]);
       return undef;