mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@30177 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2025-08-06 07:56:10 +00:00
parent 113f85b479
commit bd8d55b900
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/fhem.pl
View File

@@ -1649,7 +1649,10 @@ WriteStatefile()
} }
my @arr = GetAllReadings($d); 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)); return "$attr{global}{statefile}: $!" if(!close($SFH));
@@ -3647,7 +3650,10 @@ SignalHandling()
$data{WARNING}{$msg}++; $data{WARNING}{$msg}++;
chomp($msg); chomp($msg);
Log 1, "PERL WARNING: $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} && stacktrace() if($attr{global}{stacktrace} &&
$msg !~ m/ redefined at /); $msg !~ m/ redefined at /);
$inWarnSub = 0; $inWarnSub = 0;