From b3cd817e35c1fa2afcd2eb293a2005f3a86f77fd Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 18 Oct 2014 05:25:57 +0000
Subject: [PATCH] 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
---
 fhem/fhem.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 9ef33eb17..af97d5348 100755
--- 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