--- JSON-XS/XS.xs 2010/01/19 00:31:13 1.104 +++ JSON-XS/XS.xs 2010/01/19 01:07:27 1.105 @@ -251,8 +251,11 @@ } } + // this relies greatly on the quality of the pow () + // implementation of the platform, but a good + // implementation is hard to beat. if (postdp) *expo -= eaccum; - *accum += uaccum * pow (10., *expo); + *accum += uaccum * Perl_pow (10., *expo); *expo += eaccum; }