XXX sv.c: temp Debug

Perl · Jan 21, 2023 · 2eaae04 · 2eaae04
1 parent bb8aabf
commit 2eaae04
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/sv.c b/sv.c
@@ -16017,10 +16017,13 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 #  endif
 #endif /* !USE_LOCALE_NUMERIC */
 #if defined(USE_POSIX_2008_LOCALE)
+    DEBUG_Lv(PerlIO_printf(Perl_debug_log,
+             "(%" LINE_Tf "): PL_cur_locale_obj was %p\n", __LINE__, PL_cur_locale_obj));
     PL_scratch_locale_obj = NULL;
     PL_cur_locale_obj = PL_C_locale_obj;
+    DEBUG_Lv(PerlIO_printf(Perl_debug_log,
+             "(%" LINE_Tf "): PL_cur_locale_obj now %p\n", __LINE__, PL_cur_locale_obj));
 #endif
-
 #ifdef HAS_MBRLEN
     PL_mbrlen_ps = proto_perl->Imbrlen_ps;
 #endif