fhem.pl: avoid PERL WARNING in ReadingsNum

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6777 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2014-10-18 05:25:57 +00:00
parent f4164c0ece
commit b3cd817e35
1 changed files with 4 additions and 2 deletions
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -3348,9 +3348,11 @@ ReadingsVal($$$)

 sub
 ReadingsNum($$$)
-{ 
+{
  my ($d,$n,$default) = @_;
-  return ReadingsVal($d,$n,$default)+0;
+  my $val = ReadingsVal($d,$n,$default);
+  $val =~ s/[^-\.\d]//g;
+  return $val;
 }

 sub