From fb99e3e0fde2fea3a4b12bc92874327228f68aca Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 28 Sep 2023 16:03:40 +0000
Subject: [PATCH] fhem.pl: ReadingsNum "converts" octal to decimal (Forum
 #135120)

git-svn-id: https://svn.fhem.de/fhem/trunk@28006 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 392360dcc..bbacfe093 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -4661,6 +4661,7 @@ OldReadingsNum($$$;$)
   my $val = OldReadingsVal($d,$n,$default);
   return undef if(!defined($val));
   $val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : "");
+  $val =~ s/^(-?)0*([0-9])/$1$2/; # Forum #135120, dont want octal numbers
   return $default if($val eq "");
   $val = round($val,$round) if(defined $round);
   return $val;
@@ -4708,6 +4709,7 @@ ReadingsNum($$$;$)
   my $val = ReadingsVal($d,$n,$default);
   return undef if(!defined($val));
   $val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : "");
+  $val =~ s/^(-?)0*([0-9])/$1$2/; # Forum #135120, dont want octal numbers
   return $default if($val eq "");
   $val = round($val,$round) if(defined $round);
   return $val;