X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/c1566110007bf2539359b2d43e7865b1de0f4af1..7f974f6fd640c3e7550c1186eae54727ce5a26e2:/perl.h

diff --git a/perl.h b/perl.h
index f82efb7..ef59233 100644
--- a/perl.h
+++ b/perl.h
@@ -5506,7 +5506,7 @@ typedef struct am_table_short AMTS;
       &&   defined(HAS_USELOCALE)               \
       && ! defined(NO_POSIX_2008_LOCALE)
 
-    /* The code is written for simplicity to assume that any platform advanced
+    /* For simplicity, the code is written to assume that any platform advanced
      * enough to have the Posix 2008 locale functions has LC_ALL.  The test
      * above makes sure that assumption is valid */
 
@@ -5752,6 +5752,15 @@ expression, but with an empty argument list, like this:
 
 */
 
+/* The numeric locale is generally kept in the C locale instead of the
+ * underlying locale.  The current status is known by looking at two words.
+ * One is non-zero if the current numeric locale is the standard C/POSIX one.
+ * The other is non-zero if the current locale is the underlying locale.  Both
+ * can be non-zero if, as often happens, the underlying locale is C.
+ *
+ * khw believes the reason for the variables instead of the bits in a single
+ * word is to avoid having to have masking instructions. */
+
 #  define _NOT_IN_NUMERIC_STANDARD (! PL_numeric_standard)
 
 /* We can lock the category to stay in the C locale, making requests to the