LP#1704819 Fine generator avoids int() rounding
authorBill Erickson <berickxx@gmail.com>
Thu, 3 Aug 2017 19:01:34 +0000 (15:01 -0400)
committerBill Erickson <berickxx@gmail.com>
Thu, 21 Mar 2019 19:46:23 +0000 (15:46 -0400)
commit613045b535d528f5d7c92a4fa5d659f4e67e205d
tree817974f99d7f2b74da1cfcf3ad9ec1568ab0efaa
parentf209a46de5455aa923058af471f47d60139dee57
LP#1704819 Fine generator avoids int() rounding

Avoid using the Perl int() function for rounding in the fine generator,
since it can have unexpected outcomes.

For example:

$ perl -e 'print "230 = " . int(100 * 2.30) . "\n"'
230 = 229

Signed-off-by: Bill Erickson <berickxx@gmail.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CircCommon.pm