From e29e2f86cbf9eec7c1107597d9a2eccd390c36ce Mon Sep 17 00:00:00 2001
From: Sailor <>
Date: Tue, 13 Apr 2021 18:25:18 +0000
Subject: [PATCH] 73_ElectricityCalculator: Bugfix - Midnight-Crash

git-svn-id: https://svn.fhem.de/fhem/trunk@24239 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/73_ElectricityCalculator.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/fhem/FHEM/73_ElectricityCalculator.pm b/fhem/FHEM/73_ElectricityCalculator.pm
index a1b7469f5..a031d75af 100644
--- a/fhem/FHEM/73_ElectricityCalculator.pm
+++ b/fhem/FHEM/73_ElectricityCalculator.pm
@@ -460,6 +460,18 @@ sub ElectricityCalculator_MidnightTimer($)
 	my @ElectricityCountReadingNameListComplete = keys(%{$ElectricityCountDev->{READINGS}});
 	my @ElectricityCountReadingNameListFiltered;
 
+	### Create Log entries for debugging purpose
+	Log3 $ElectricityCalcName, 2, $ElectricityCalcName. " : ElectricityCalculator_MidnightTimer ReadingRegEx        : " . $ElectricityCountReadingRegEx;
+	Log3 $ElectricityCalcName, 2, $ElectricityCalcName. " : ElectricityCalculator_MidnightTimer ReadingRegExNeg     : " . $ElectricityCountReadingRegExNeg;
+
+	### If no RegEx is available, leave routine
+	if (($ElectricityCountReadingRegEx eq "") || ($ElectricityCountReadingRegExNeg eq "")) { 
+		Log3 $ElectricityCalcName, 2, $ElectricityCalcName. " : ElectricityCalculator_MidnightTimer                     : ERROR! No RegEx has been previously stored! Beaking midnight routine.";
+		Log3 $ElectricityCalcName, 2, $ElectricityCalcName. " : ElectricityCalculator_MidnightTimer ReadingRegEx        : " . $ElectricityCountReadingRegEx;
+		Log3 $ElectricityCalcName, 2, $ElectricityCalcName. " : ElectricityCalculator_MidnightTimer ReadingRegExNeg     : " . $ElectricityCountReadingRegExNeg;
+		return;
+	}
+	
 	foreach my $ElectricityCountReadingName (@ElectricityCountReadingNameListComplete) {
 		if (($ElectricityCountReadingName =~ m[$ElectricityCountReadingRegEx]) && ($ElectricityCountReadingName !~ m[$ElectricityCountReadingRegExNeg])) {
 			push(@ElectricityCountReadingNameListFiltered, $ElectricityCountReadingName);