From 58a5a3718f4d920a07170eaec7b18207ad3e075c Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Thu, 11 Aug 2022 20:40:34 +0000
Subject: [PATCH] 93_DbRep: contrib 8.50.0

git-svn-id: https://svn.fhem.de/fhem/trunk@26312 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/DS_Starter/93_DbRep.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/fhem/contrib/DS_Starter/93_DbRep.pm b/fhem/contrib/DS_Starter/93_DbRep.pm
index bdf2f6e03..ab2edbde9 100644
--- a/fhem/contrib/DS_Starter/93_DbRep.pm
+++ b/fhem/contrib/DS_Starter/93_DbRep.pm
@@ -9081,7 +9081,7 @@ sub DbRep_reduceLog {
     
     my $ndp = AttrVal($name, "numDecimalPlaces", $dbrep_defdecplaces);
     
-    my ($day,$hour, $processingDay);
+    my ($day, $hour, $processingDay, $params);
     my (%hourlyKnown,@dayRows,@updateHour,@updateDay);
     my ($startTime,$currentHour,$currentDay,$deletedCount,$updateCount,$rowCount,$excludeCount) = (time(),99,0,0,0,0,0);
     
@@ -9102,7 +9102,7 @@ sub DbRep_reduceLog {
             if ($currentDay) {                                                             # nicht am ersten ausgeführten Tag
                 if (scalar @dayRows) {                                                     # alle Tageseinträge löschen
                     
-                    my $params = {
+                    $params = {
                         name            => $name,
                         dbh             => $dbh,
                         sth_del         => $sth_del,
@@ -9121,7 +9121,7 @@ sub DbRep_reduceLog {
                 
                 if ($mode =~ /average|max/i) {                    
            
-                    my $params = {
+                    $params = {
                         name            => $name,
                         dbh             => $dbh,
                         sth_upd         => $sth_upd,
@@ -9144,7 +9144,7 @@ sub DbRep_reduceLog {
                 
                 if ($mode =~ /=day/i && scalar @updateDay) {                    
 
-                    my $params = {
+                    $params = {
                         name            => $name,
                         dbh             => $dbh,
                         sth_delD        => $sth_delD,   
@@ -9356,8 +9356,7 @@ sub _DbRep_rl_updateHour {
 
   Log3 ($name, 3, "DbRep $name - reduceLog (hourly-$mstr) updating $c records of day: $processingDay") if($c);
   
-  my $max;
-  my $params;
+  my ($max, $params);
   my $sum = 0;
   my $i   = 0;
   my $k   = 1;