2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00

CUL_HM:find warnings

git-svn-id: https://svn.fhem.de/fhem/trunk@22437 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2020-07-19 18:27:08 +00:00
parent d510ad2d85
commit 7429e569fb

View File

@ -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