From ab1a26af7d50b7e6ebd7cbf4bf9051d2030b942b Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Mon, 29 Apr 2019 19:17:44 +0000
Subject: [PATCH] 76_SMAInverter: perl
 warnings,Forum:#56080.msg933276.html#msg933276

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@19290 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 CHANGED                | 1 +
 FHEM/76_SMAInverter.pm | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/CHANGED b/CHANGED
index a69a918f5..e6cc86cc1 100644
--- a/CHANGED
+++ b/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+ - bugfix:  76_SMAInverter: perl warnings,Forum:#56080.msg933276.html#msg933276
  - feature: 73_AutoShuttersControl: add attribut ASC_RainProtection, bugfix
  - feature: 73_AutoShuttersControl: add attribut ASC_WindProtection
  - bugfix:  73_AutoShuttersControl: fix shutters drive after partyMode off and
diff --git a/FHEM/76_SMAInverter.pm b/FHEM/76_SMAInverter.pm
index ae9fbda54..33a3d7e24 100644
--- a/FHEM/76_SMAInverter.pm
+++ b/FHEM/76_SMAInverter.pm
@@ -28,6 +28,7 @@
 #################################################################################################################
 # Versions History by DS_Starter
 #
+# 2.10.1   28.04.2019      fix perl warnings, Forum:#56080.msg933276.html#msg933276
 # 2.10.0   29.06.2018      Internal MODEL added
 # 2.9.2    08.10.2017      adapted to use extended abortArg (Forum:77472)
 # 2.9.1    24.04.2017      fix for issue #24 (Wrong INV_TYPE for STP10000TL-20) and fix for issue #25 (unpack out of range for SB1.5-1VL-40)
@@ -718,7 +719,7 @@ sub getstatus_DoParse($) {
              if($sup_ChargeStatus) {
 	             push(@row_array, "chargestatus ".$inv_ChargeStatus."\n");		     
              }
-             if($inv_CLASS && $inv_CLASS eq 8007) {
+             if($inv_CLASS && $inv_CLASS eq 8007 && defined($inv_SPOT_PACTOT)) {  # V2.10.1 28.04.2019
                  if($inv_SPOT_PACTOT < 0) {
 	                 push(@row_array, "power_out "."0"."\n");
 	                 push(@row_array, "power_in ".(-1 * $inv_SPOT_PACTOT)."\n");
@@ -809,7 +810,7 @@ sub getstatus_DoParse($) {
              if($sup_ChargeStatus) {
 	             push(@row_array, "ChargeStatus ".$inv_ChargeStatus."\n");
              }
-             if($inv_CLASS && $inv_CLASS eq 8007) {
+             if($inv_CLASS && $inv_CLASS eq 8007 && defined($inv_SPOT_PACTOT)) {  # V2.10.1 28.04.2019
                  if($inv_SPOT_PACTOT < 0) {
 	                 push(@row_array, "POWER_OUT "."0"."\n");
 	                 push(@row_array, "POWER_IN ".(-1 * $inv_SPOT_PACTOT)."\n");