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
This commit is contained in:
justme1968
2015-06-19 22:09:52 +00:00
parent eabff40c74
commit aa66e4810f

View File

@@ -255,7 +255,7 @@ rgVal2Num($)
{ {
my ($num) = @_; my ($num) = @_;
$num =~ s/[^-\.\d]//g; $num =~ s/[^-\.\d]//g if( defined($num) );
return $num; return $num;
} }
@@ -271,7 +271,7 @@ lookup($$$$$$$$$)
my $READING = $reading; my $READING = $reading;
my $VALUE = $value; my $VALUE = $value;
my $NUM = $VALUE; my $NUM = $VALUE;
$NUM =~ s/[^-\.\d]//g; $NUM =~ s/[^-\.\d]//g if( defined($NUM) );
my $ROW = $row; my $ROW = $row;
my $m = eval $mapping; my $m = eval $mapping;
if( $@ ) { if( $@ ) {
@@ -333,7 +333,7 @@ lookup2($$$$;$$)
my $READING = $reading; my $READING = $reading;
my $VALUE = $value; my $VALUE = $value;
my $NUM = $VALUE; my $NUM = $VALUE;
$NUM =~ s/[^-\.\d]//g; $NUM =~ s/[^-\.\d]//g if( defined($NUM) );
my $ROW = $row; my $ROW = $row;
my $COLUMN = $column; my $COLUMN = $column;
my $l = eval $lookup; my $l = eval $lookup;