From bf4259729c68e7d03b0224bf9f2c631744a72eda Mon Sep 17 00:00:00 2001
From: loredo <loredo@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 29 May 2014 11:19:04 +0000
Subject: [PATCH] PHTV: fix keys hash reference

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6002 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/70_PHTV.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/70_PHTV.pm b/fhem/FHEM/70_PHTV.pm
index 55babab04..0c2f10b35 100644
--- a/fhem/FHEM/70_PHTV.pm
+++ b/fhem/FHEM/70_PHTV.pm
@@ -24,7 +24,7 @@
 #     along with fhem.  If not, see <http://www.gnu.org/licenses/>.
 #
 #
-# Version: 1.2.3
+# Version: 1.2.4
 #
 # Major Version History:
 # - 1.2.0 - 2014-03-12
@@ -276,7 +276,7 @@ sub PHTV_Set($@) {
         && ref( $hash->{helper}{device}{channelPreset} ) eq "HASH" )
     {
         my $i     = 1;
-        my $count = scalar( keys $hash->{helper}{device}{channelPreset} );
+        my $count = scalar( keys %{ $hash->{helper}{device}{channelPreset} } );
         $count = 80 if ( $count > 80 );
         while ( $i <= $count ) {
             $channels .=
@@ -2054,9 +2054,9 @@ sub PHTV_ReceiveCommand($$$) {
         elsif ( $service eq "ambilight/cached" ) {
             if ( ref($return) eq "HASH" ) {
                 my $hexsum = "";
-                foreach my $layer ( keys $return ) {
-                    foreach my $side ( keys $return->{$layer} ) {
-                        foreach my $led ( keys $return->{$layer}{$side} ) {
+                foreach my $layer ( keys %{$return} ) {
+                    foreach my $side ( keys %{ $return->{$layer} } ) {
+                        foreach my $led ( keys %{ $return->{$layer}{$side} } ) {
                             my $hex = "";
                             my $l   = $layer;
                             my $s   = $side;