From cc41c7c1e0d0a0356515330a10996ae93f2466b0 Mon Sep 17 00:00:00 2001
From: justme-1968 <justme-1968@users.noreply.github.com>
Date: Fri, 28 Jan 2022 16:11:15 +0000
Subject: [PATCH] 31_HUEDevice.pm: fixed perl warning

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

diff --git a/fhem/FHEM/31_HUEDevice.pm b/fhem/FHEM/31_HUEDevice.pm
index ecde79c2d..9a44c016f 100644
--- a/fhem/FHEM/31_HUEDevice.pm
+++ b/fhem/FHEM/31_HUEDevice.pm
@@ -1162,7 +1162,14 @@ HUEDevice_Set($@)
     if( $hash->{IODev}{has_v2_api} ) {
       my $id = HUEBridge_V2IdOfV1Id( $hash->{IODev}, 'light', "/lights/$hash->{ID}" );
 
-      $list .= eval { " v2effect:". join(',', @{$hash->{IODev}{helper}{resource}{by_id}{$id}{effects}{effect_values}} ) } if( $id );
+      if( $id
+          && $hash->{IODev}{helper}{resource}{by_id}{$id}
+          && $hash->{IODev}{helper}{resource}{by_id}{$id}{effects} ) {
+        $list .= eval { " v2effect:". join(',', @{$hash->{IODev}{helper}{resource}{by_id}{$id}{effects}{effect_values}} ) };
+        if($@) {
+          Log3 $name, 2, "$name: error reading effects: ". $@;
+        }
+      }
     }
   }