This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Add const to several variables
authorKarl Williamson <khw@cpan.org>
Tue, 2 Jan 2018 01:17:41 +0000 (18:17 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 31 Jan 2018 05:27:25 +0000 (22:27 -0700)
locale.c

index 27295d8..7e51913 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -1823,11 +1823,11 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
                                        && strNE("0", bad_lang_use_once)))));
     bool done = FALSE;
     /* setlocale() return vals; not copied so must be looked at immediately */
-    char * sl_result[NOMINAL_LC_ALL_INDEX + 1];
+    const char * sl_result[NOMINAL_LC_ALL_INDEX + 1];
 
     /* current locale for given category; should have been copied so aren't
      * volatile */
-    char * curlocales[NOMINAL_LC_ALL_INDEX + 1];
+    const char * curlocales[NOMINAL_LC_ALL_INDEX + 1];
 
     char * locale_param;
 
@@ -2896,7 +2896,7 @@ Perl__is_cur_LC_category_utf8(pTHX_ int category)
      * English, it comes down to if the locale's name ends in something like
      * "UTF-8".  It errs on the side of not being a UTF-8 locale. */
 
-    char *save_input_locale = NULL;
+    const char *save_input_locale = NULL;
     STRLEN final_pos;
 
 #  ifdef LC_ALL
@@ -3334,7 +3334,7 @@ Perl__is_cur_LC_category_utf8(pTHX_ int category)
 
     final_pos = strlen(save_input_locale) - 1;
     if (final_pos >= 3) {
-        char *name = save_input_locale;
+        const char *name = save_input_locale;
 
         /* Find next 'U' or 'u' and look from there */
         while ((name += strcspn(name, "Uu") + 1)
@@ -3506,7 +3506,7 @@ Perl_my_strerror(pTHX_ const int errnum)
 
 #    else
 
-    char * save_locale = NULL;
+    const char * save_locale = NULL;
     bool locale_is_C = FALSE;
 
     /* We have a critical section to prevent another thread from changing the