S_querylocale_2008_i: Add entry assertion

Perl · Nov 22, 2023 · 83e5d6a · 83e5d6a
1 parent 261850f
commit 83e5d6a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/locale.c b/locale.c
@@ -2038,6 +2038,10 @@ S_querylocale_2008_i(pTHX_ const locale_category_index index,
     const locale_t cur_obj = uselocale((locale_t) 0);
     const char * retval;
 
+#  ifdef MULTIPLICITY
+    assert(cur_obj== LC_GLOBAL_LOCALE || cur_obj == PL_cur_locale_obj);
+#  endif
+
     DEBUG_Lv(PerlIO_printf(Perl_debug_log, "querylocale_2008_i(%s) on %p;"
                                            " called from %" LINE_Tf "\n",
                                            category_names[index], cur_obj,