LP#1704819 Fine generator avoids int() rounding user/berick/lp1704819-fine-gen-int-rounding
authorBill Erickson <berickxx@gmail.com>
Thu, 3 Aug 2017 19:01:34 +0000 (15:01 -0400)
committerBill Erickson <berickxx@gmail.com>
Thu, 3 Aug 2017 19:01:36 +0000 (15:01 -0400)
commit8be077f031f047bfe07a8db2901d3d34f343b415
tree1398354cdf9669aa72847cf823b74b2f0160f446
parent6273f1ddae68d48322144d11d06b1034580e153e
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