Tidy up #3542 and #3543.

p4raw-id: //depot/cfgperl@3544

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index 381aeceba6..5e77d4648c 100644
--- a/util.c
+++ b/util.c
@@ -3462,7 +3462,7 @@ Perl_my_fflush_all(pTHX)
 double
 Perl_my_atof(const char* s) {
 #ifdef USE_LOCALE_NUMERIC
-    if (PL_numeric_local) {
+    if ((PL_hints & HINT_LOCALE) && PL_numeric_local) {
 	double x, y;
 
 	x = atof(s);