From cbf3ad2bfa95d8b8577075a8f55089a720a794d7 Mon Sep 17 00:00:00 2001
From: markusbloch <markusbloch@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 12 Jan 2014 22:17:40 +0000
Subject: [PATCH] YAMAHA_AVR: dereference hash element for keys() (perl
 compatibility issue)

git-svn-id: https://svn.fhem.de/fhem/trunk@4637 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/71_YAMAHA_AVR.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/FHEM/71_YAMAHA_AVR.pm b/fhem/FHEM/71_YAMAHA_AVR.pm
index 19bca3485..2432ce61c 100755
--- a/fhem/FHEM/71_YAMAHA_AVR.pm
+++ b/fhem/FHEM/71_YAMAHA_AVR.pm
@@ -242,7 +242,7 @@ YAMAHA_AVR_Get($@)
     {
 		$return = "unknown argument $what, choose one of";
 		
-		foreach my $reading (keys $hash->{READINGS})
+		foreach my $reading (keys %{$hash->{READINGS}})
 		{
 			$return .= " $reading:noArg";
 		}