From 88338a1fa0be226cd3e3caa988be9e99c7acfaf0 Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Tue, 6 Dec 2022 12:42:48 +0000 Subject: [PATCH] 93_DbLog: contrib 5.3.0 git-svn-id: https://svn.fhem.de/fhem/trunk@26795 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/contrib/DS_Starter/93_DbLog.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fhem/contrib/DS_Starter/93_DbLog.pm b/fhem/contrib/DS_Starter/93_DbLog.pm index 6d71c8cd8..482839c3b 100644 --- a/fhem/contrib/DS_Starter/93_DbLog.pm +++ b/fhem/contrib/DS_Starter/93_DbLog.pm @@ -1471,7 +1471,7 @@ sub DbLog_Log { my $log4rel = $vb4show && !$hash->{HELPER}{LONGRUN_PID} ? 1 : 0; - if(AttrVal ($name, 'verbose', 3) =~ /[45]/) { + if(AttrVal ($name, 'verbose', 3) =~ /[45]/xs) { if($log4rel) { Log3 ($name, 4, "DbLog $name - ################################################################"); Log3 ($name, 4, "DbLog $name - ### start of new Logcycle ###"); @@ -2870,7 +2870,7 @@ sub DbLog_execMemCacheSync { my $name = $hash->{NAME}; - if(AttrVal ($name, 'verbose', 3) =~ /[45]/) { + if(AttrVal ($name, 'verbose', 3) =~ /[45]/xs) { Log3 ($name, 4, "DbLog $name - ################################################################"); Log3 ($name, 4, "DbLog $name - ### New database processing cycle - SBP synchronous ###"); Log3 ($name, 4, "DbLog $name - ################################################################"); @@ -2880,7 +2880,7 @@ sub DbLog_execMemCacheSync { my $memc; for my $key (sort(keys %{$data{DbLog}{$name}{cache}{memcache}})) { - Log3 ($name, 5, "DbLog $name - MemCache contains: $key -> ".$data{DbLog}{$name}{cache}{memcache}{$key}); + Log3 ($name, 5, "DbLog $name - Store contains: $key -> ".$data{DbLog}{$name}{cache}{memcache}{$key}); $memc->{cdata}{$key} = delete $data{DbLog}{$name}{cache}{memcache}{$key}; # Subprocess Daten, z.B.: 2022-11-29 09:33:32|SolCast|SOLARFORECAST||nextCycletime|09:33:47| }