FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

76_SMAInverter: fix Perl warnings

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@20073 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2019-08-27 20:08:42 +00:00
parent dfdbc42068
commit c1c0d92108
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # 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. # Do not insert empty lines here, update check depends on it.
- bugfix: 76_SMAInverter: fix Perl warnings
- bugfix: 93_DbRep: fix add newline at the end of DbReadingsVal result, - bugfix: 93_DbRep: fix add newline at the end of DbReadingsVal result,
Forum: #103295 Forum: #103295
- change: 76_SMAPortal: change switch consumer to on<->automatic only in - change: 76_SMAPortal: change switch consumer to on<->automatic only in

3
fhem/FHEM/76_SMAInverter.pm
View File

@ -32,6 +32,7 @@ eval "use FHEM::Meta;1" or my $modMetaAbsent = 1;
# Versions History by DS_Starter # Versions History by DS_Starter
our %SMAInverter_vNotesIntern = ( our %SMAInverter_vNotesIntern = (
"2.13.2" => "27.08.2019 fix WARNING: Use of uninitialized value \$_ in substitution (s///) at /opt/fhem//FHEM/Blocking.pm line 238 ",
"2.13.1" => "22.08.2019 commandref revised ", "2.13.1" => "22.08.2019 commandref revised ",
"2.13.0" => "20.08.2019 support of Meta.pm ", "2.13.0" => "20.08.2019 support of Meta.pm ",
"2.12.0" => "20.08.2019 set warning to log if SPOT_ETODAY, SPOT_ETOTAL was not delivered or successfully ". "2.12.0" => "20.08.2019 set warning to log if SPOT_ETODAY, SPOT_ETOTAL was not delivered or successfully ".
@ -572,7 +573,7 @@ sub SMAInverter_getstatusDoParse($) {
# ETOTAL speichern für ETODAY-Berechnung wenn WR ETODAY nicht liefert # ETOTAL speichern für ETODAY-Berechnung wenn WR ETODAY nicht liefert
if ($dt_now >= $oper_stop) { if ($dt_now >= $oper_stop) {
my $val; my $val = 0;
$val = ReadingsNum($name, "etotal", 0)*1000 if (exists $defs{$name}{READINGS}{etotal}); $val = ReadingsNum($name, "etotal", 0)*1000 if (exists $defs{$name}{READINGS}{etotal});
$val = ReadingsNum($name, "SPOT_ETOTAL", 0) if (exists $defs{$name}{READINGS}{SPOT_ETOTAL}); $val = ReadingsNum($name, "SPOT_ETOTAL", 0) if (exists $defs{$name}{READINGS}{SPOT_ETOTAL});
BlockingInformParent("SMAInverter_setReadingFromBlocking", [$name, ".etotal_yesterday", $val], 0); BlockingInformParent("SMAInverter_setReadingFromBlocking", [$name, ".etotal_yesterday", $val], 0);