diff --git a/fhem/FHEM/70_XBMC.pm b/fhem/FHEM/70_XBMC.pm index f65a51e62..1b3fa1c2e 100644 --- a/fhem/FHEM/70_XBMC.pm +++ b/fhem/FHEM/70_XBMC.pm @@ -658,7 +658,7 @@ sub XBMC_ProcessResponse($$) my $players = $obj->{result}; if (ref($players) ne "ARRAY") { my $keys = ""; - while ((my $k, my $v) = each $hash->{PendingPlayerCMDs} ) { + while ((my $k, my $v) = each %$hash->{PendingPlayerCMDs} ) { $keys .= ",$k"; } delete $hash->{PendingPlayerCMDs}{$id};