From c30d786a7c990cbbd68fc4748210a7fa34c97113 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 8 Feb 2019 11:30:37 +0000
Subject: [PATCH] TcpServerUtils.pm: Watch out for wide characters (Forum
 #90145)

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

diff --git a/fhem/FHEM/TcpServerUtils.pm b/fhem/FHEM/TcpServerUtils.pm
index c03bfa352..1366ecf36 100644
--- a/fhem/FHEM/TcpServerUtils.pm
+++ b/fhem/FHEM/TcpServerUtils.pm
@@ -293,7 +293,13 @@ TcpServer_WriteBlocking($$)
       return undef;
     }
 
-    my $ret = syswrite($sock, $txt, $len-$off, $off);
+    my $ret;
+    eval { $ret = syswrite($sock, $txt, $len-$off, $off); }; # Wide character
+    if($@) {
+      Log 1, $@;
+      Log 1, "txt:".join(":",unpack("C*",$txt)).",len:$len,off:$off";
+      stacktrace();
+    }
 
     if( defined $ret ){
       $off += $ret;