From 658a793422919736368e1f0a29b0f448ef362908 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Thu, 24 Jan 2013 17:22:58 -0800 Subject: [PATCH] fix floating point error in taxline, #21099 --- FS/FS/cust_main_county.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/FS/FS/cust_main_county.pm b/FS/FS/cust_main_county.pm index 573359571..fb80809e0 100644 --- a/FS/FS/cust_main_county.pm +++ b/FS/FS/cust_main_county.pm @@ -512,8 +512,10 @@ sub taxline { # now round and distribute my $extra_cents = sprintf('%.2f', $taxable_cents * $self->tax / 100) * 100 - $tax_cents; + # make sure we have an integer + $extra_cents = sprintf('%.0f', $extra_cents); if ( $extra_cents < 0 ) { - die "nonsense extra_cents value $extra_cents"; # because seriously, wtf + die "nonsense extra_cents value $extra_cents"; } $tax_cents += $extra_cents; my $i = 0; -- 2.11.0