From df6e1b17cf431c4725f7eba55043422f6caa5ff4 Mon Sep 17 00:00:00 2001
From: viegener <>
Date: Wed, 24 Mar 2021 20:31:34 +0000
Subject: [PATCH] 48_BlinkCamera: remmove perl warning on setup

git-svn-id: https://svn.fhem.de/fhem/trunk@24078 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/48_BlinkCamera.pm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/fhem/FHEM/48_BlinkCamera.pm b/fhem/FHEM/48_BlinkCamera.pm
index 287580b5d..ed4dc0b5a 100644
--- a/fhem/FHEM/48_BlinkCamera.pm
+++ b/fhem/FHEM/48_BlinkCamera.pm
@@ -86,10 +86,13 @@ my $repositoryID = '$Id$';
 
 #   login changed to V5 api and also new format of response  #msg1141218
 #   reset unique id as additional reset option
-
 #   change header for auth to new value token-auth
 #   adapter also region from login to new tier
 #   changed alert handing only when network is identified
+
+#   Correct perl warning on setup call with empty event timestamp #msg1142674
+#   
+#   
 #   
 ##############################################################################
 ##############################################################################
@@ -1967,10 +1970,12 @@ sub BlinkCamera_Setup($) {
 
   # remove all readings ebside eventTimestamp to avoid addtl notifications
   my $eventTime =  ReadingsVal($name,"eventTimestamp",undef);
-  Log3 $name, 4, "BlinkCamera_Setup $name: init eventtimestamp with ".$eventTime;
   CommandDeleteReading(undef, "$name .*");
-  readingsSingleUpdate($hash, "eventTimestamp", $eventTime, 0 ) if ( defined( $eventTime ) );
-
+  if ( defined( $eventTime ) ) {
+    Log3 $name, 4, "BlinkCamera_Setup $name: init eventtimestamp with ".$eventTime;
+    readingsSingleUpdate($hash, "eventTimestamp", $eventTime, 0 );
+  }
+  
   foreach my $aKey ( keys  %{$hash} ) {
     # "thumbnail".$device->{device_id}."Req"
     delete( $hash->{$aKey} ) if ( $aKey =~ /^thumbnail/ );