From 127d76112cfb997a331350ab3374643703190950 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 3 May 2014 09:33:39 +0000
Subject: [PATCH] fhem.pl: Fixing configDB issues

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@5727 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index f218c6cfe..9d3bbba0c 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -2117,10 +2117,12 @@ GlobalAttr($$$$)
     my $counter = 0;
 
     if(configDBUsed()) {
-      my @dbList = split(/,/,cfgDB_Read99()); # retrieve filelist from configDB
-      foreach my $m (@dbList) {
-        CommandReload(undef, $m) if(!$modules{$m}{LOADED});
-        $counter++;
+      my $list = cfgDB_Read99(); # retrieve filelist from configDB
+      if($list) {
+        foreach my $m (split(/,/,$list)) {
+          CommandReload(undef, $m) if(!$modules{$m}{LOADED});
+          $counter++;
+        }
       }
     }
 
@@ -3210,7 +3212,7 @@ setGlobalAttrBeforeFork($)
 
   my ($err, @rows);
   if($f eq 'configDB') {
-    @rows = cfgDB_attrRead('global');
+    @rows = cfgDB_AttrRead('global');
   } else {
     ($err, @rows) = FileRead($f);
     die("$err\n") if($err);