From f1c982a254f412a0b054cc9f1e2e9f51ef7dc696 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 26 Jun 2012 03:13:20 -0500 Subject: [PATCH] add comment about the atof change [perl #109318] --- numeric.c | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/numeric.c b/numeric.c index 74f0903..eda05d9 100644 --- a/numeric.c +++ b/numeric.c @@ -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)); -- 2.7.4