From 8ef0b1f0723d7d139370bbdf2376332152522255 Mon Sep 17 00:00:00 2001 From: eisler Date: Sun, 25 Nov 2018 12:48:42 +0000 Subject: [PATCH] 12_HProtocolGateway: dependency to Math::Round removed git-svn-id: https://svn.fhem.de/fhem/trunk@17840 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/12_HProtocolGateway.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/12_HProtocolGateway.pm b/fhem/FHEM/12_HProtocolGateway.pm index 417479c80..2e99876ae 100644 --- a/fhem/FHEM/12_HProtocolGateway.pm +++ b/fhem/FHEM/12_HProtocolGateway.pm @@ -28,7 +28,6 @@ package main; use strict; use warnings; use DevIo; -use Math::Round qw/round/; my @tankList = undef; @@ -222,7 +221,7 @@ sub HProtocolGateway_ParseMessage($$) { if ($sign eq "-") { $probe_offset = int($probe_offset) * -1 }; my $volume_15C = $volume * (1 + 0.00084 * ( 15 - $temperature )); - $volume_15C = Math::Round::nearest('0.01',$volume_15C); + $volume_15C = sprintf("%.2f", $volume_15C); # Update all received readings HProtocolGateway_UpdateTankDevice($hash, $tankHash->{NAME}, "ullage", $ullage); @@ -370,7 +369,7 @@ sub HProtocolGateway_Tank($$$) { foreach my $level (sort keys %TankChartHash) { if ($level ne "level" && $filllevel <= $level) { $volume = $volume1 + ($TankChartHash{$level} - $volume1) / ($level - $level1) * ($filllevel-$level1); - $volume = Math::Round::nearest('0.01',$volume); + $volume = sprintf("%.2f", $volume); last; } $level1 = $level;