diff options
Diffstat (limited to 'numeric.c')
| -rw-r--r-- | numeric.c | 41 |
1 files changed, 21 insertions, 20 deletions
@@ -855,31 +855,32 @@ Perl_my_atof(pTHX_ const char* s) { DECLARE_STORE_LC_NUMERIC_SET_TO_NEEDED(); - if (PL_numeric_local && PL_numeric_radix_sv && IN_SOME_LOCALE_FORM) { - const char *standard = NULL, *local = NULL; - bool use_standard_radix; + if (PL_numeric_local && PL_numeric_radix_sv && IN_SOME_LOCALE_FORM) { + 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)); + /* 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)); - use_standard_radix = standard && (!local || standard < local); + use_standard_radix = standard && (!local || standard < local); - if (use_standard_radix) - SET_NUMERIC_STANDARD(); + if (use_standard_radix) + SET_NUMERIC_STANDARD(); - Perl_atof2(s, x); + Perl_atof2(s, x); - if (use_standard_radix) - SET_NUMERIC_LOCAL(); - } - else - Perl_atof2(s, x); + if (use_standard_radix) + SET_NUMERIC_LOCAL(); + } + else + Perl_atof2(s, x); RESTORE_LC_NUMERIC(); } #else |