From a5a895a4c9cfe6a858d3ef75cdb43ff7a31b36fc Mon Sep 17 00:00:00 2001 From: jpawlowski Date: Sat, 20 Oct 2018 14:23:56 +0000 Subject: [PATCH] UConv.pm: flexible roundings for distance() git-svn-id: https://svn.fhem.de/fhem/trunk@17574 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/UConv.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/fhem/FHEM/UConv.pm b/fhem/FHEM/UConv.pm index d6895c48e..cb5e590e3 100644 --- a/fhem/FHEM/UConv.pm +++ b/fhem/FHEM/UConv.pm @@ -705,7 +705,8 @@ sub mph2bft($) { sub distance($$$$;$$) { my ( $lat1, $lng1, $lat2, $lng2, $rnd, $unit ) = @_; - return "0.0" if ( $lat1 eq $lat2 && $lng1 eq $lng2 ); + return _round( "0.000000000", $rnd ) + if ( $lat1 eq $lat2 && $lng1 eq $lng2 ); use constant M_PI => 4 * atan2( 1, 1 ); my $pi80 = M_PI / 180;