From d87840d78d1c5dca30955e523132a404fdc7efdf Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 3 Jun 2014 18:07:22 +0000
Subject: [PATCH] improve reload of registersettings

git-svn-id: https://svn.fhem.de/fhem/trunk@6043 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_HMinfo.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index 7d42be54c..52ecaa700 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -1298,7 +1298,9 @@ sub HMinfo_loadConfig($@) {####################################################
       $param =~ s/\.RegL/RegL/;
       $param =~ s/RegL/\.RegL/ if ($exp != 2);
       my ($reg,$data) = split(" ",$param,2);
-      my $rl = join",",CUL_HM_reglUsed($eN);
+      my @rla = CUL_HM_reglUsed($eN);
+      next if (!$rla[0]);
+      my $rl = join",",@rla;
       my $r2 = $reg;
       $r2 =~ s/^\.//;
 
@@ -1318,6 +1320,7 @@ sub HMinfo_loadConfig($@) {####################################################
       $defs{$eN}{READINGS}{$reg}{VAL} = $changes{$eN}{$reg};
       $defs{$eN}{READINGS}{$reg}{TIME} = "from archive";
       my ($list,$pN) = ($1,$2) if ($reg =~ m/RegL_(..):(.*)/);
+      next if (!$list);
       my $pId = CUL_HM_peerChId($pN,substr($defs{$eN}{DEF},0,6));
       CUL_HM_updtRegDisp($defs{$eN},$list,$pId);
       push @el,"$eN reg list:$reg";