From a0acba47fb9c1ce13b439749bdd99ff814c0373e Mon Sep 17 00:00:00 2001
From: DS_Starter <DS_Starter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 20 Feb 2021 17:09:41 +0000
Subject: [PATCH] 93_DbLog: contrib 4.11.0

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

diff --git a/fhem/contrib/DS_Starter/93_DbLog.pm b/fhem/contrib/DS_Starter/93_DbLog.pm
index e7691e06d..b7cbd1509 100644
--- a/fhem/contrib/DS_Starter/93_DbLog.pm
+++ b/fhem/contrib/DS_Starter/93_DbLog.pm
@@ -312,15 +312,14 @@ return;
 sub DbLog_Define {
   my ($hash, $def) = @_;
   my $name         = $hash->{NAME};
-  my @a            = split("[ \t][ \t]*", $def);
+  my @a            = split "[ \t][ \t]*", $def;
   
   if($DbLogMMDBI) {
       Log3($name, 1, "DbLog $name - ERROR - Perl module ".$DbLogMMDBI." is missing. DbLog module is not loaded ! On Debian systems you can install it with \"sudo apt-get install libdbi-perl\" ");
       return "Error: Perl module ".$DbLogMMDBI." is missing. Install it on Debian with: sudo apt-get install libdbi-perl";
   }        
 
-  return "wrong syntax: define <name> DbLog configuration regexp"
-    if(int(@a) != 4);
+  return "wrong syntax: define <name> DbLog configuration regexp" if(int(@a) != 4);
   
   $hash->{CONFIGURATION} = $a[2];
   my $regexp             = $a[3];