FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-05 08:20:23 +00:00
Code Issues Releases Wiki Activity

31_HUEDevice.pm: perl warning fix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25449 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2022-01-10 14:41:00 +00:00
parent eb04d0b790
commit 7ae94a5c05
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/FHEM/31_HUEDevice.pm
View File

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