From 1560d2d42e2f66fec29b457cbeb8f6569dd15f6c Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Sun, 21 Jul 2024 20:47:25 +0000 Subject: [PATCH] 93_DbLog: Cache process changed to minimize memory usage after reopen git-svn-id: https://svn.fhem.de/fhem/trunk@29036 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/93_DbLog.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/93_DbLog.pm b/fhem/FHEM/93_DbLog.pm index 307332b27..cba079997 100644 --- a/fhem/FHEM/93_DbLog.pm +++ b/fhem/FHEM/93_DbLog.pm @@ -58,6 +58,7 @@ use vars qw($FW_ME $FW_subdir); # predeclar # Version History intern by DS_Starter: my %DbLog_vNotesIntern = ( + "5.10.2" => "21.07.2024 _DbLog_copyCache: Copy process changed to minimize memory usage after reopen ", "5.10.1" => "01.04.2024 _DbLog_plotData: avoid possible uninitialized value \$out_value (SVG: Argument '' isn't numeric) ". "replace Smartmatch Forum:#137776 ", "5.10.0" => "17.03.2024 support of MariaDB driver, optimize Timer execMemCacheAsync, optimize DbLog_configcheck,_DbLog_SBP_connectDB ". @@ -2047,12 +2048,11 @@ sub _DbLog_copyCache { while (my ($key, $val) = each %{$data{DbLog}{$name}{cache}{memcache}} ) { $memc->{cdata}{$key} = $val; # Subprocess Daten, z.B.: 2022-11-29 09:33:32|SolCast|SOLARFORECAST||nextCycletime|09:33:47| + delete $data{DbLog}{$name}{cache}{memcache}{$key}; } $memc->{cdataindex} = $data{DbLog}{$name}{cache}{index}; # aktuellen Index an Subprozess übergeben - undef %{$data{DbLog}{$name}{cache}{memcache}}; # Löschen mit Memory freigeben: https://perlmaven.com/undef-on-perl-arrays-and-hashes , bzw. https://www.effectiveperlprogramming.com/2018/09/undef-a-scalar-to-release-its-memory/ - return $memc; }