Fix a typo and add some clarification to change #26387.

[p5sagit/p5-mst-13.2.git] / locale.c

diff --git a/locale.c b/locale.c
index e7572cf..881ebd9 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -337,7 +337,7 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
 
     if (setlocale_failure) {
        char *p;
-       bool locwarn = (printwarn > 1 ||
+       const bool locwarn = (printwarn > 1 ||
                        (printwarn &&
                         (!(p = PerlEnv_getenv("PERL_BADLANG")) || atoi(p))));