locale.c: Move declaration closer to first use

Perl · May 12, 2023 · adfb190 · adfb190
1 parent b3f9f32
commit adfb190
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/locale.c b/locale.c
@@ -1920,8 +1920,6 @@ S_bool_setlocale_2008_i(pTHX_
                            " object=%p\n",
                            caller_line, PL_C_locale_obj));
 
-    locale_t new_obj;
-
     /* These two objects are special:
      *  LC_GLOBAL_LOCALE    because it is undefined behavior to call
      *                      newlocale() with it as a parameter.
@@ -1932,6 +1930,7 @@ S_bool_setlocale_2008_i(pTHX_
      * newlocale(). */
     bool entry_obj_is_special = (   entry_obj == LC_GLOBAL_LOCALE
                                  || entry_obj == PL_C_locale_obj);
+    locale_t new_obj;
 
     /* PL_C_locale_obj is LC_ALL set to the C locale.  If this call is to
      * switch to LC_ALL => C, simply use that object.  But in fact, we already