47_OBIS: Fixed Integer overflow on large values

git-svn-id: https://svn.fhem.de/fhem/trunk@18560 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Icinger
2019-02-11 10:49:33 +00:00
parent 7c09c4b979
commit 6770eaeb93

View File

@@ -361,7 +361,7 @@ sub OBIS_trySMLdecode($$)
$unit eq "01" ? "" :
$unit eq "1D" ? "varh" :
$unit eq "" ? "" : "var";
$scaler=$scaler ne "" ? 10**unpack("c", pack("C", hex($scaler))) : 1;
$scaler=$scaler ne "" ? 10**unpack("l", pack("L", hex($scaler))) : 1;
if ($scaler==0) {$scaler=1}; # just to make sure
$line2.="<" if ($status=~/[aA]2$/);
$line2.=">" if ($status=~/82$/);