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
This commit is contained in:
@@ -242,7 +242,7 @@ YAMAHA_AVR_Get($@)
|
|||||||
{
|
{
|
||||||
$return = "unknown argument $what, choose one of";
|
$return = "unknown argument $what, choose one of";
|
||||||
|
|
||||||
foreach my $reading (keys $hash->{READINGS})
|
foreach my $reading (keys %{$hash->{READINGS}})
|
||||||
{
|
{
|
||||||
$return .= " $reading:noArg";
|
$return .= " $reading:noArg";
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user