From efd6b49ee57afc583c558b62614034faf05819e6 Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Sun, 4 Mar 2018 16:47:51 +0000 Subject: [PATCH] 93_DbRep: fix perl warning git-svn-id: https://svn.fhem.de/fhem/trunk@16326 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 1 + fhem/FHEM/93_DbRep.pm | 5 +++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/fhem/CHANGED b/fhem/CHANGED index 2368459ce..86d24238f 100644 --- a/fhem/CHANGED +++ b/fhem/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: 93_DbRep: fix perl warning - bugfix: 38_netatmo: fixed public stations update, added fixed interval - bugfix: 93_DbRep: V7.14.1, bugfix for PostgreSQL - added: 88_xs1Dev: added new module for control xs1 diff --git a/fhem/FHEM/93_DbRep.pm b/fhem/FHEM/93_DbRep.pm index 8dd7c9b5e..a9d8d795f 100644 --- a/fhem/FHEM/93_DbRep.pm +++ b/fhem/FHEM/93_DbRep.pm @@ -37,6 +37,7 @@ ########################################################################################################################### # Versions History: # +# 7.14.2 04.03.2018 fix perl warning # 7.14.1 01.03.2018 currentfillup_Push bugfix for PostgreSQL # 7.14.0 26.02.2018 syncStandby # 7.13.3 25.02.2018 commandref revised (forum:#84953) @@ -322,7 +323,7 @@ no if $] >= 5.017011, warnings => 'experimental::smartmatch'; sub DbRep_Main($$;$); sub DbLog_cutCol($$$$$$$); # DbLog-Funktion nutzen um Daten auf maximale Länge beschneiden -my $DbRepVersion = "7.14.1"; +my $DbRepVersion = "7.14.2"; my %dbrep_col = ("DEVICE" => 64, "TYPE" => 64, @@ -1799,7 +1800,7 @@ sub DbRep_createTimeArray($$$) { $wdadd = 172800 if($wd eq "Sa"); # wenn Start am "Sa" dann nächste Grenze +2 Tage $wdadd = 86400 if($wd eq "So"); # wenn Start am "So" dann nächste Grenze +1 Tage - Log3 ($name, 5, "DbRep $name - weekday of start for selection: $wd -> wdadd: $wdadd"); + Log3 ($name, 5, "DbRep $name - weekday of start for selection: $wd -> wdadd: $wdadd") if($wdadd); my $aggsec; if ($aggregation eq "hour") {