From 7429e569fb9a88fe38fad8f9b335e14b7a253520 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sun, 19 Jul 2020 18:27:08 +0000
Subject: [PATCH] CUL_HM:find warnings

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 6213a8549..78838ea8a 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -6714,9 +6714,11 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
 sub CUL_HM_Ping($) {
   my($defN) = @_;
   return 0 if (($defs{$defN}{helper}{rxType} & 0xe3) == 0);     # no ping for config devices
-  return 1 if (1 == CUL_HM_Set($defs{$defN},$defN,"sysTime"));
+  my (undef, $nres) = CUL_HM_Set($defs{$defN},$defN,"sysTime"); # noansi: fix warnings
+  return 1 if (defined($nres) && 1 == $nres); 
   foreach my $chnN($defN,map{$defs{$defN}{$_}}grep(/^channel_/,keys %{$defs{$defN}})){
-    return 1 if(1== CUL_HM_Set($defs{$chnN},$chnN,"statusRequest"));
+    (undef, $nres) = CUL_HM_Set($defs{$chnN},$chnN,"statusRequest"); # noansi: fix warnings
+    return 1 if (defined($nres) && 1 == $nres); 
   }
   return 0;
 }
@@ -8505,7 +8507,8 @@ sub CUL_HMTmplSetParam($){
 
 sub CUL_HM_chgExpLvl($){# update visibility and set internal values for expert 
   my $tHash = shift;
-  
+
+  delete $tHash->{helper}{expert};
   foreach my $expSet (split(",",CUL_HM_getAttr($tHash->{NAME},"expert","defReg"))){
     $tHash->{helper}{expert}{def} = ($expSet eq "defReg") ? 1 : 0;#default register on
     $tHash->{helper}{expert}{det} = ($expSet eq "allReg") ? 1 : 0;#detail register on