From d1d34099eb36040451b440304056f34d7eb012d8 Mon Sep 17 00:00:00 2001
From: Icinger <>
Date: Mon, 11 Feb 2019 10:49:33 +0000
Subject: [PATCH] 47_OBIS: Fixed Integer overflow on large values

git-svn-id: https://svn.fhem.de/fhem/trunk@18560 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/47_OBIS.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/FHEM/47_OBIS.pm b/fhem/FHEM/47_OBIS.pm
index 1ea3383f1..a301bf708 100644
--- a/fhem/FHEM/47_OBIS.pm
+++ b/fhem/FHEM/47_OBIS.pm
@@ -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$/);