From 12489da441cec1b83a5400db1139e718eb2b5942 Mon Sep 17 00:00:00 2001 From: andi291 Date: Sat, 16 Apr 2016 17:41:50 +0000 Subject: [PATCH] 10_KNX.pm: ABU 20160414 Changed SplitFn according to thread 52122 git-svn-id: https://svn.fhem.de/fhem/trunk@11252 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_KNX.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/fhem/FHEM/10_KNX.pm b/fhem/FHEM/10_KNX.pm index 89ccfeae5..14ebb8615 100644 --- a/fhem/FHEM/10_KNX.pm +++ b/fhem/FHEM/10_KNX.pm @@ -10,6 +10,7 @@ # ABU 20160403 Fixed various minor perl warnings # ABU 20160413 Changed SplitFn # ABU 20160414 Changed SplitFn again +# ABU 20160416 Changed SplitFn again package main; @@ -659,7 +660,8 @@ sub KNX_DbLog_split($) { $value = join(" ", @strings[$startIndex..(int(@strings) - 1)]); #numeric value? - if ($strings[$startIndex] =~ /^[+-]?\d*[.,]?\d+/) + #if ($strings[$startIndex] =~ /^[+-]?\d*[.,]?\d+/) + if ($strings[$startIndex] =~ /^[+-]?\d*[.,]?\d+$/) { $value = $strings[$startIndex]; #single numeric value? Assume second par is unit...