POSIX:strtod() should restore the locale it changed

Prior to this commit, the locale remained as strtod() set it to.  I
could not find a case where this actually was a problem, as the other
code is good about checking for and changing the locale where needed.
But uses of atoi(), strtol() in locales where there are spaces in
numbers likely would break.

1 files changed, 6 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index c777b1bb3c..b6e0c3eb28 100644
--- a/perl.h
+++ b/perl.h
@@ -5288,6 +5288,12 @@ typedef struct am_table_short AMTS;
 	bool was_standard = PL_numeric_standard && IN_SOME_LOCALE_FORM; \
 	if (was_standard) SET_NUMERIC_LOCAL();
 
+/* Rarely, we want to change to the underlying locale even outside of 'use
+ * locale'.  This is principally in the POSIX:: functions */
+#define STORE_NUMERIC_STANDARD_FORCE_LOCAL() \
+	bool was_standard = PL_numeric_standard; \
+	if (was_standard) SET_NUMERIC_LOCAL();
+
 #define RESTORE_NUMERIC_LOCAL() \
 	if (was_local) SET_NUMERIC_LOCAL();