From 74b94cc98547bf66c0d591abc3d2ed19ddee7dd1 Mon Sep 17 00:00:00 2001
From: Sailor <>
Date: Mon, 8 May 2017 10:55:47 +0000
Subject: [PATCH] 73_km200.pm: bugfix: Errorlist unsorted timestamp part 4

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

diff --git a/fhem/FHEM/73_km200.pm b/fhem/FHEM/73_km200.pm
index 61e7f03bf..f844b190b 100644
--- a/fhem/FHEM/73_km200.pm
+++ b/fhem/FHEM/73_km200.pm
@@ -1785,7 +1785,7 @@ sub km200_GetSingleService($)
 				{					
 					### Create message string with fixed blocksize
 					my $TempTime      = $item->{t};
-					   $TempTime      =~ s/^(.+)$/sprintf("%s%s", $1, ' 'x(20-length($1)))/e;
+					if ($TempTime) {$TempTime      =~ s/^(.+)$/sprintf("%s%s", $1, ' 'x(20-length($1)))/e;}
 					my $TempErrorCode = $item->{dcd};
 					   $TempErrorCode =~ s/^(.+)$/sprintf("%s%s", $1, ' 'x(3 -length($1)))/e;
 					my $TempAddCode   = $item->{ccd};    
@@ -2840,7 +2840,7 @@ sub km200_ParseHttpResponseDyn($)
 				
 				### Create message string with fixed blocksize
 				my $TempTime      = $item->{t};
-				   $TempTime      =~ s/^(.+)$/sprintf("%s%s", $1, ' 'x(20-length($1)))/e;
+				if ($TempTime) {$TempTime      =~ s/^(.+)$/sprintf("%s%s", $1, ' 'x(20-length($1)))/e;}
 				my $TempErrorCode = $item->{dcd};
 				   $TempErrorCode =~ s/^(.+)$/sprintf("%s%s", $1, ' 'x(3 -length($1)))/e;
 				my $TempAddCode   = $item->{ccd};