FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-25 03:44:52 +00:00
Code Issues Releases Wiki Activity

fhem.pl: small corrections (Forum #135120)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@28007 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2023-09-28 16:11:48 +00:00
parent fb99e3e0fd
commit 6ae973cde2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/fhem.pl
View File

@ -4661,7 +4661,7 @@ OldReadingsNum($$$;$)
my $val = OldReadingsVal($d,$n,$default); my $val = OldReadingsVal($d,$n,$default);
return undef if(!defined($val)); return undef if(!defined($val));
$val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : ""); $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 ""); return $default if($val eq "");
$val = round($val,$round) if(defined $round); $val = round($val,$round) if(defined $round);
return $val; return $val;
@ -4709,7 +4709,7 @@ ReadingsNum($$$;$)
my $val = ReadingsVal($d,$n,$default); my $val = ReadingsVal($d,$n,$default);
return undef if(!defined($val)); return undef if(!defined($val));
$val = ($val =~ /(-?\d+(\.\d+)?)/ ? $1 : ""); $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 ""); return $default if($val eq "");
$val = round($val,$round) if(defined $round); $val = round($val,$round) if(defined $round);
return $val; return $val;