X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/07b2a6c81736d9de93adea8c82dbe3d2d43c8a13..2357bae7a0b405c6c8c0667303468707f4cd32f8:/numeric.c

diff --git a/numeric.c b/numeric.c
index 74f0903..e96252a 100644
--- a/numeric.c
+++ b/numeric.c
@@ -803,7 +803,7 @@ S_mulexp10(NV value, I32 exponent)
      * a hammer.  Therefore we need to catch potential overflows before
      * it's too late. */
 
-#if ((defined(VMS) && !defined(__IEEE_FP)) || defined(_UNICOS)) && defined(NV_MAX_10_EXP)
+#if ((defined(VMS) && !defined(_IEEE_FP)) || defined(_UNICOS)) && defined(NV_MAX_10_EXP)
     STMT_START {
 	const NV exp_v = log10(value);
 	if (exponent >= NV_MAX_10_EXP || exponent + exp_v >= NV_MAX_10_EXP)
@@ -851,6 +851,12 @@ Perl_my_atof(pTHX_ const char* s)
         const char *standard = NULL, *local = NULL;
         bool use_standard_radix;
 
+        /* Look through the string for the first thing that looks like a
+         * decimal point: either the value in the current locale or the
+         * standard fallback of '.'. The one which appears earliest in the
+         * input string is the one that we should have atof look for. Note that
+         * we have to determine this beforehand because on some systems,
+         * Perl_atof2 is just a wrapper around the system's atof. */
         standard = strchr(s, '.');
         local = strstr(s, SvPV_nolen(PL_numeric_radix_sv));