From 5e6608be1b020eec499322debfb779061cee7ad6 Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Sat, 13 Aug 2016 12:53:59 +0000
Subject: [PATCH] 31_HUEDevice.pm: fix for newer perl versions

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

diff --git a/fhem/FHEM/31_HUEDevice.pm b/fhem/FHEM/31_HUEDevice.pm
index ab0edc7e7..84913b9ab 100644
--- a/fhem/FHEM/31_HUEDevice.pm
+++ b/fhem/FHEM/31_HUEDevice.pm
@@ -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}) {