From 01dd271fa2bcc82780ca5a4b9581b7f8732685e3 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Mon, 27 Jul 2020 12:09:02 +0000
Subject: [PATCH] HMInfo: improve/correct register update with clear oldRegs

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

diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index f383a3192..8f947d5ef 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -1688,10 +1688,10 @@ sub HMinfo_SetFn($@) {#########################################################
     elsif ($type ne "msgStat"){
       return "unknown parameter - use msgEvents, msgErrors, msgStat, readings, register, rssi, attack or all"
             if ($type !~ m/^(msgEvents|msgErrors|readings|register|oldRegs|rssi|all|attack|trigger)$/);
-      $opt .= "d" if ($type =~ m/(msgE|rssi)/);# readings apply to all, others device only
-      my @entities;
-      foreach my $dName (HMinfo_getEntities($opt,$filter)){
-        push @entities,$dName;
+      $opt .= "d" if ($type =~ m/(msgE|rssi|oldRegs)/);# readings apply to all, others device only
+      my @entities = (HMinfo_getEntities($opt,$filter));
+      
+      foreach my $dName (@entities){
         CUL_HM_Set($defs{$dName},$dName,"clear",$type);
       }
       $ret = $cmd.$type." done:"