locale.c: Don't over allocate array

This previously added an extraneous unused element.
Perl · Jun 3, 2023 · cca9f02 · cca9f02
1 parent bdf9d2c
commit cca9f02
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/locale.c b/locale.c
@@ -8110,7 +8110,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++) {