From 01f31e4e7b2ba01510b84b184827401d8468a77f Mon Sep 17 00:00:00 2001
From: DS_Starter <DS_Starter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 6 Dec 2022 21:51:50 +0000
Subject: [PATCH] 93_DbLog: contrib 5.3.0

git-svn-id: https://svn.fhem.de/fhem/trunk@26806 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/DS_Starter/93_DbLog.pm | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/fhem/contrib/DS_Starter/93_DbLog.pm b/fhem/contrib/DS_Starter/93_DbLog.pm
index 22bcd5f83..b37c41db2 100644
--- a/fhem/contrib/DS_Starter/93_DbLog.pm
+++ b/fhem/contrib/DS_Starter/93_DbLog.pm
@@ -3751,7 +3751,6 @@ sub _DbLog_SBP_onRun_deleteOldDays {
   my $args        = $memc->{arguments};
 
   my $error       = q{};
-  my $errorh      = q{};
   my $numdel      = 0;
   my $ret;
   my $retjson;
@@ -3778,16 +3777,16 @@ sub _DbLog_SBP_onRun_deleteOldDays {
       eval { $numdel = $dbh->do($cmd);
              1;
            }
-           or do { $errorh = $@;
+           or do { $error = $@;
 
-                   Log3 ($name, 2, "DbLog $name - Error table $history - $errorh");
+                   Log3 ($name, 2, "DbLog $name - Error table $history - $error");
 
                    $dbh->disconnect();
                    delete $store->{dbh};
 
                    $ret = {
                        name     => $name,
-                       msg      => $@,
+                       msg      => $error,
                        ot       => 0,
                        oper     => $operation
                    };
@@ -3815,7 +3814,7 @@ sub _DbLog_SBP_onRun_deleteOldDays {
       numdel   => $numdel
   };
 
-  my $retjson = eval { encode_json($ret) };
+  $retjson = eval { encode_json($ret) };
   $subprocess->writeToParent ($retjson);
 
 return;
@@ -3839,7 +3838,6 @@ sub _DbLog_SBP_onRun_userCommand {
   my $sql         = $memc->{arguments};
 
   my $error       = q{};
-  my $errorh      = q{};
   my $res;
   my $ret;
   my $retjson;
@@ -3851,16 +3849,16 @@ sub _DbLog_SBP_onRun_userCommand {
   eval { $res = $dbh->selectrow_array($sql);
          1;
        }
-       or do { $errorh = $@;
+       or do { $error = $@;
 
-               Log3 ($name, 2, "DbLog $name - Error - $errorh");
+               Log3 ($name, 2, "DbLog $name - Error - $error");
 
                $dbh->disconnect();
                delete $store->{dbh};
 
                $ret = {
                    name     => $name,
-                   msg      => $@,
+                   msg      => $error,
                    ot       => 0,
                    oper     => $operation
                };
@@ -3886,7 +3884,7 @@ sub _DbLog_SBP_onRun_userCommand {
       res      => $res
   };
 
-  my $retjson = eval { encode_json($ret) };
+  $retjson = eval { encode_json($ret) };
   $subprocess->writeToParent ($retjson);
 
 return;