From aa66e4810f823e5767b3583a9e98cbe6283fd3c7 Mon Sep 17 00:00:00 2001
From: justme1968 <justme1968@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 19 Jun 2015 22:09:52 +0000
Subject: [PATCH] 33_readingsGroup.pm: fixed warning for undef value in val2nu

git-svn-id: https://svn.fhem.de/fhem/trunk@8780 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/33_readingsGroup.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/33_readingsGroup.pm b/fhem/FHEM/33_readingsGroup.pm
index ad55da7fd..6008ec573 100644
--- a/fhem/FHEM/33_readingsGroup.pm
+++ b/fhem/FHEM/33_readingsGroup.pm
@@ -255,7 +255,7 @@ rgVal2Num($)
 {
   my ($num) = @_;
 
-  $num =~ s/[^-\.\d]//g;
+  $num =~ s/[^-\.\d]//g if( defined($num) );
 
   return $num;
 }
@@ -271,7 +271,7 @@ lookup($$$$$$$$$)
       my $READING = $reading;
       my $VALUE = $value;
       my $NUM = $VALUE;
-      $NUM =~ s/[^-\.\d]//g;
+      $NUM =~ s/[^-\.\d]//g if( defined($NUM) );
       my $ROW = $row;
       my $m = eval $mapping;
       if( $@ ) {
@@ -333,7 +333,7 @@ lookup2($$$$;$$)
     my $READING = $reading;
     my $VALUE = $value;
     my $NUM = $VALUE;
-    $NUM =~ s/[^-\.\d]//g;
+    $NUM =~ s/[^-\.\d]//g if( defined($NUM) );
     my $ROW = $row;
     my $COLUMN = $column;
     my $l = eval $lookup;