From d4bef8bc4a74437492bc5dee750cbd207acfca9e Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Sat, 22 Jul 2017 10:16:21 +0000
Subject: [PATCH] statistics2.cgi: count perl main version only

git-svn-id: https://svn.fhem.de/fhem/trunk@14763 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/statistics/2017/statistics2.cgi | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/fhem/contrib/statistics/2017/statistics2.cgi b/fhem/contrib/statistics/2017/statistics2.cgi
index 5d90a0d59..fc7bcab82 100755
--- a/fhem/contrib/statistics/2017/statistics2.cgi
+++ b/fhem/contrib/statistics/2017/statistics2.cgi
@@ -196,6 +196,8 @@ sub doAggregate() {
 
       $res      = $decoded->{'system'}{'perl'};
       $res     =~ s/^v//;
+      $res     =~ /(^\d*\.\d*)/;
+      $res      = $1;
       $countAll{'system'}{'perl'}{$res}++;
 
       if (defined($decoded->{'system'}{'revdate'})){