fhem.pl: more detailed log when saving wide characters (Forum #141656)

git-svn-id: https://svn.fhem.de/fhem/trunk@30177 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/fhem.pl

@@ -1649,7 +1649,10 @@ WriteStatefile()
     }
 
     my @arr = GetAllReadings($d);
-    print $SFH join("\n", @arr)."\n" if(@arr);
+    if(@arr) {
+      $cmdFromAnalyze = join("\n", @arr);
+      print $SFH $cmdFromAnalyze."\n";
+    }
   }
 
   return "$attr{global}{statefile}: $!" if(!close($SFH));
@@ -3647,7 +3650,10 @@ SignalHandling()
     $data{WARNING}{$msg}++;
     chomp($msg);
     Log 1, "PERL WARNING: $msg"; 
-    Log 3, "eval: $cmdFromAnalyze" if($cmdFromAnalyze);
+    if($cmdFromAnalyze) {
+      $cmdFromAnalyze =~ s/([^ -~])/"(".ord($1).")"/ge; 
+      Log 3, "eval: $cmdFromAnalyze";
+    }
     stacktrace() if($attr{global}{stacktrace} &&
                     $msg !~ m/ redefined at /);
     $inWarnSub = 0;