From c61a6571ffed25c63acb6763a607885940629a19 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Tue, 31 Mar 2020 11:54:08 +0000
Subject: [PATCH] : minor code cleanup

git-svn-id: https://svn.fhem.de/fhem/trunk@21555 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_configdb.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/fhem/FHEM/98_configdb.pm b/fhem/FHEM/98_configdb.pm
index 8f457f475..68d54af09 100644
--- a/fhem/FHEM/98_configdb.pm
+++ b/fhem/FHEM/98_configdb.pm
@@ -241,17 +241,20 @@ sub CommandConfigdb {
 }
 
 sub _cfgDB_readConfig() {
-	if(!open(my $CONFIG, '<', 'configDB.conf')) {
+	my ($conf,@config);
+	if(!open($conf, '<', 'configDB.conf')) {
 		Log3('configDB', 1, 'Cannot open database configuration file configDB.conf');
 		return 0;
 	}
-	my @config=<$CONFIG>;
-	close($CONFIG);
+	my @config=<$conf>;
+	close($conf);
 
 	use vars qw(%configDB);
 
 	my %dbconfig;
-	eval { join("", @config) };
+## no critic
+	eval join("", @config) ;
+## critic
 
 	my $cfgDB_dbconn	= $dbconfig{connection};
 	my $cfgDB_dbuser	= $dbconfig{user};