locale.c: Add a debugging statement

This can be helpful in tracing what's happening with nl_langinfo() calls.
Perl · Nov 13, 2023 · 82b507d · 82b507d
1 parent d215173
commit 82b507d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/locale.c b/locale.c
@@ -6655,6 +6655,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() */