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:
@@ -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;
|
||||||
|
|||||||
Reference in New Issue
Block a user