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
This commit is contained in:
andi291
2016-04-16 17:41:50 +00:00
parent 1f4b71c594
commit 12489da441

View File

@@ -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...