From 2661af485957ded8e723dbede2b2ddad87e7034b Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 10 Oct 2018 08:34:43 +0000
Subject: [PATCH] TcpServerUtils.pm: Deny connecting without encryption if SSL
 is set (Forum #91148)

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

diff --git a/fhem/FHEM/TcpServerUtils.pm b/fhem/FHEM/TcpServerUtils.pm
index 119edd8d6..467335b2e 100644
--- a/fhem/FHEM/TcpServerUtils.pm
+++ b/fhem/FHEM/TcpServerUtils.pm
@@ -121,6 +121,7 @@ TcpServer_Accept($$)
         SSL_cipher_list => 'HIGH:!RC4:!eNULL:!aNULL',
         Timeout       => 4,
         });
+      $! = EINVAL if(!$clientinfo[0]->blocking() && $!==EWOULDBLOCK);
     };
     my $err = $!;
     if( !$ret