note tye <p> Bleh. POSIX::floor() on a Perl that uses "<tt>long double</tt>" (or similar) as NVs induces a great reduction in precision. Much better to just use: </p><del><c> sub floor { $_[0] < 0 ? -int(-$_[0]) : int($_[0]); } </c></del><c> sub floor { my $i= int( my $f= shift @_ ); return $i - ( $f<0 && $f!=$i ); } </c><p> Now you know. :) </p> <div class="pmsig"><div class="pmsig-22609"><p align="right"> - [tye]<tt> &nbsp; &nbsp; &nbsp; &nbsp;</tt> </p></div></div> 654233 654278