From b36ef567192b240f29d22affafcdcd985db1d392 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 4 Mar 2010 15:51:57 +0100
Subject: [PATCH] =?utf8?q?Beim=20Runden=20zuerst=20auf=20acht=20Stellen=20?=
 =?utf8?q?runden,=20danach=20auf=20die=20gew=C3=BCnschte=20Anzahl?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Die interne Repräsentation von Fließkommazahlen in modernen CPUs ist
immer ungenau. Um zu vermeiden, dass man mit int() zu viel
abschneidet, weil der Nachkommaanteil eben nicht ganz exakt 0 sondern
z.B. 999999999999594 ist, wird zuerst auf acht Stellen gerundet, um
diese Ungenauigkeit zu vermeiden.

Fix für Bug 1115.
---
 SL/Form.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 956120568..8d1772061 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1126,13 +1126,13 @@ sub round_amount {
   my ($self, $amount, $places) = @_;
   my $round_amount;
 
-  # Rounding like "Kaufmannsrunden"
-  # Descr. http://de.wikipedia.org/wiki/Rundung
-  # Inspired by
-  # http://www.perl.com/doc/FAQs/FAQ/oldfaq-html/Q4.13.html
-  # Solves Bug: 189
-  # Udo Spallek
-  $amount = $amount * (10**($places));
+  # Rounding like "Kaufmannsrunden" (see http://de.wikipedia.org/wiki/Rundung )
+
+  # Round amounts to eight places before rounding to the requested
+  # number of places. This gets rid of errors due to internal floating
+  # point representation.
+  $amount       = $self->round_amount($amount, 8) if $places < 8;
+  $amount       = $amount * (10**($places));
   $round_amount = int($amount + .5 * ($amount <=> 0)) / (10**($places));
 
   $main::lxdebug->leave_sub(2);
-- 
2.20.1