From 7ae94a5c05cd85f776e170f8b0583b8eeedf0fda Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Mon, 10 Jan 2022 14:41:00 +0000
Subject: [PATCH] 31_HUEDevice.pm: perl warning fix

git-svn-id: https://svn.fhem.de/fhem/trunk@25449 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/31_HUEDevice.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/31_HUEDevice.pm b/fhem/FHEM/31_HUEDevice.pm
index 28e019825..441dae7e3 100644
--- a/fhem/FHEM/31_HUEDevice.pm
+++ b/fhem/FHEM/31_HUEDevice.pm
@@ -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 = $_;