FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 11:26:55 +00:00
Code Issues Releases Wiki Activity

31_HUEDevice.pm: fix for newer perl versions

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11955 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2016-08-13 12:53:59 +00:00
parent 1f638756af
commit 5e6608be1b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/31_HUEDevice.pm
View File

@ -616,7 +616,7 @@ HUEDevice_Set($@)
return undef;
} elsif( my @match = grep { $cmd eq $_ } keys ($hash->{helper}{setList}{cmds}?$hash->{helper}{setList}{cmds}:{}) ) {
} elsif( my @match = grep { $cmd eq $_ } keys %{($hash->{helper}{setList}{cmds}?$hash->{helper}{setList}{cmds}:{})} ) {
return HUEBridge_Set( $shash, $shash->{NAME}, 'setsensor', $id, $hash->{helper}{setList}{cmds}{$match[0]} );
} elsif( my $entries = $hash->{helper}{setList}{regex} ) {
@ -637,7 +637,7 @@ HUEDevice_Set($@)
my $list = 'statusRequest:noArg';
$list .= ' json' if( $hash->{type} && $hash->{type} =~ /^CLIP/ );
$list .= ' '. join( ':noArg ', keys $hash->{helper}{setList}{cmds} ) if( $hash->{helper}{setList}{cmds} );
$list .= ' '. join( ':noArg ', keys %{$hash->{helper}{setList}{cmds}} ) if( $hash->{helper}{setList}{cmds} );
$list .= ':noArg' if( $hash->{helper}{setList}{cmds} );
if( my $entries = $hash->{helper}{setList}{regex} ) {
foreach my $entry (@{$entries}) {