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
2014-01-12 22:17:40 +00:00
parent 3b9457b3ec
commit cbf3ad2bfa
1 changed files with 1 additions and 1 deletions
--- 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";
 		}