Sisyphus's fix for pod2html

[perl5.git] / numeric.c

diff --git a/numeric.c b/numeric.c
index fe8837a..c00dabd 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -533,7 +533,7 @@ Perl_grok_numeric_radix(pTHX_ const char **sp, const char *send)
 
     PERL_ARGS_ASSERT_GROK_NUMERIC_RADIX;
 
-    if (PL_numeric_radix_sv && IN_LOCALE) { 
+    if (PL_numeric_radix_sv && IN_SOME_LOCALE_FORM) {
         STRLEN len;
         const char * const radix = SvPV(PL_numeric_radix_sv, len);
         if (*sp + len <= send && memEQ(*sp, radix, len)) {
@@ -847,7 +847,7 @@ Perl_my_atof(pTHX_ const char* s)
 
     PERL_ARGS_ASSERT_MY_ATOF;
 
-    if (PL_numeric_local && IN_LOCALE) {
+    if (PL_numeric_local && IN_SOME_LOCALE_FORM) {
        NV y;
 
        /* Scan the number twice; once using locale and once without;