From 98b35ef163db24d4744313bc51106ea9be7aa58c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 1 Mar 2024 16:10:10 +0000
Subject: [PATCH] fhem.pl: ReadingsNum fix (Forum #137283)

git-svn-id: https://svn.fhem.de/fhem/trunk@28577 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 3ca72de37..86a98f260 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -4666,6 +4666,7 @@ OldReadingsNum($$$;$)
   my ($d,$n,$default,$round) = @_;
   my $val = OldReadingsVal($d,$n,$default);
   return undef if(!defined($val));
+  return $val if(looks_like_number($val)); # 137283
   $val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : "");
   $val =~ s/^(-?)0+([1-9])/$1$2/; # Forum #135120, dont want octal numbers
   return $default if($val eq "");
@@ -4714,6 +4715,7 @@ ReadingsNum($$$;$)
   my ($d,$n,$default,$round) = @_;
   my $val = ReadingsVal($d,$n,$default);
   return undef if(!defined($val));
+  return $val if(looks_like_number($val)); # 137283
   $val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : "");
   $val =~ s/^(-?)0+([1-9])/$1$2/; # Forum #135120, dont want octal numbers
   return $default if($val eq "");