diff --git a/intrpvar.h b/intrpvar.h index ef76845a2e16..865e7ddaf4d4 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -806,7 +806,7 @@ PERLVARI(I, numeric_standard, int, TRUE) /* Name of current numeric locale */ PERLVARI(I, numeric_name, const char *, NULL) -PERLVAR(I, numeric_radix_sv, SV *) /* The radix separator if not '.' */ +PERLVAR(I, numeric_radix_sv, SV *) /* The radix separator */ #ifdef USE_LOCALE_CTYPE diff --git a/numeric.c b/numeric.c index 6c5bd9e82c0d..b9fd07028a39 100644 --- a/numeric.c +++ b/numeric.c @@ -1490,7 +1490,7 @@ N.B. C must be NUL terminated. { DECLARATION_FOR_LC_NUMERIC_MANIPULATION; STORE_LC_NUMERIC_SET_TO_NEEDED(); - if (! (PL_numeric_radix_sv && IN_LC(LC_NUMERIC))) { + if (! IN_LC(LC_NUMERIC)) { ATOF(s,x); } else {