gh17824: zero curlocales[]

Static analysis tools such as Coverity and clang report that we can otherwise end up reading uninitialized data, and inspection agrees.
Perl · May 31, 2021 · 8a2e41f · 8a2e41f
1 parent fef07e7
commit 8a2e41f
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/locale.c b/locale.c
@@ -3388,6 +3388,9 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
     my_strlcpy(PL_locale_utf8ness, C_and_POSIX_utf8ness,
                sizeof(PL_locale_utf8ness));
 
+    /* See https://github.com/Perl/perl5/issues/17824 */
+    Zero(curlocales, NOMINAL_LC_ALL_INDEX, char *);
+
 #  ifdef USE_THREAD_SAFE_LOCALE
 #    ifdef WIN32