1 files changed, 10 insertions, 0 deletions
diff --git a/locale.c b/locale.c
index 5626688dde..1abda3ea6c 100644
--- a/locale.c
+++ b/locale.c
@@ -474,6 +474,16 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
 #endif /* USE_LOCALE */
 
     {
+      /* Set PL_wantut8 to TRUE if any of the following are true:
+	 - nl_langinfo(CODESET) contains /^utf-?8/i
+	 - $ENV{LANGUAGE} contains /^utf-?8/i (only if using glibc)
+	 - $ENV{LC_CALL} contains /^utf-?8/i
+	 - $ENV{LC_CTYPE} contains /^utf-?8/i
+	 - $ENV{LANG} contains /^utf-?8/i
+	 If PL_wantutf8 is true the perl.c:S_parse_body()
+	 will turn on the PerlIO :utf8 discipline on STDIN, STDOUT,
+	 STDERR, _and_ the default open discipline.
+      */
 	 bool wantutf8 = FALSE;
 	 char *codeset = NULL;
 #if defined(HAS_NL_LANGINFO) && defined(CODESET)