locale.c: Don't over allocate array

This previously added an extraneous unused element.
Perl · May 12, 2023 · 9e08477 · 9e08477
1 parent ed8b33d
commit 9e08477
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/locale.c b/locale.c
@@ -7957,7 +7957,7 @@ Perl_switch_to_global_locale(pTHX)
 
 #    else   /* Must be USE_POSIX_2008_LOCALE) */
 
-    const char * cur_thread_locales[LC_ALL_INDEX_ + 1];
+    const char * cur_thread_locales[LC_ALL_INDEX_];
 
     /* Save each category's current per-thread state */
     for (unsigned i = 0; i < LC_ALL_INDEX_; i++) {