From 30c2a156f77b7a11d12e116486b41a7ffde92b87 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sat, 4 Jul 2020 09:47:44 +0000
Subject: [PATCH] HMInfo:improve configCheck

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

diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index 58604c1d7..1e08b410f 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -1364,6 +1364,7 @@ sub HMinfo_GetFn($@) {#########################################################
     $ret = $cmd." done:" .HMinfo_peerCheck(@entities);
   }
   elsif($cmd eq "configCheck"){##check peers and register----------------------
+
     if ($hash->{CL}){
       $defs{$name}{helper}{cfgChkResult} = "";
       my $id = ++$hash->{nb}{cnt};
@@ -2931,9 +2932,14 @@ sub HMinfo_templateChk(@){#####################################################
     $repl = "  no peer:$pName - ".ReadingsVal($aName,"peerList" ,"")."\n";
   }
   else{
-    my $pRnm = $pName ? $pName."-" : "";
+    my $pRnm = "";
     if ($pName){
-      $pRnm = $pName.(($defs{$pName}{helper}{role}{dev})?"_chn-01-":"-");
+      if (defined $defs{$pName} && $defs{$pName}{helper}{role}{dev}){
+        $pRnm = $pName."_chn-01-";
+      }
+      else{
+        $pRnm = $pName."-";
+      }
     }
     my $pRnmLS = $pTyp eq "long"?"lg":($pTyp eq "short"?"sh":"");
     foreach my $rn (keys%{$HMConfig::culHmTpl{$tmpl}{reg}}){