Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

31_HUEDevice.pm: perl warning fix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@25449 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2022-01-10 14:41:00 +00:00
parent c1d413be82
commit e23a38079f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
FHEM/31_HUEDevice.pm
View File

@ -1492,7 +1492,8 @@ HUEDevice_Parse($$)
if( $result->{lights} ) {
$hash->{helper}{lights} = {map {$_=>1} @{$result->{lights}}};
my $lights = join( ",", sort { $a <=> $b } @{$result->{lights}} );
if( $lights ne $hash->{lights} ) {
if( !defined($hash->{lights})
|| $lights ne $hash->{lights} ) {
$hash->{lights} = $lights;
my $lights = join (' ', map( { my $code = $_;