locale.c: Add a debugging statement

This can be helpful in tracing what's happening with nl_langinfo() calls.
Perl · May 12, 2023 · 8a3d542 · 8a3d542
1 parent 926f734
commit 8a3d542
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/locale.c b/locale.c
@@ -6427,6 +6427,9 @@ S_my_langinfo_i(pTHX_
         *utf8ness = is_utf8;
     }
 
+    DEBUG_Lv(PerlIO_printf(Perl_debug_log,
+                           "Leaving my_langinfo item=%ld, using locale %s\n",
+                           (long) item, locale));
     return retval;
 
 #  endif    /* All the implementations of my_langinfo() */