From 6ae973cde2d21e4d0a2979006ba80ac175782d11 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 28 Sep 2023 16:11:48 +0000
Subject: [PATCH] fhem.pl: small corrections (Forum #135120)

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

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index bbacfe093..5c30596ed 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -4661,7 +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
+  $val =~ s/^(-?)0+([1-9])/$1$2/; # Forum #135120, dont want octal numbers
   return $default if($val eq "");
   $val = round($val,$round) if(defined $round);
   return $val;
@@ -4709,7 +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
+  $val =~ s/^(-?)0+([1-9])/$1$2/; # Forum #135120, dont want octal numbers
   return $default if($val eq "");
   $val = round($val,$round) if(defined $round);
   return $val;