From 4df2b6c8cf73a471ba7b7dc88f658f9576011cef Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Fri, 7 Apr 2023 09:51:37 -0600 Subject: [PATCH] locale.c: Add a debugging statement This can be helpful in tracing what's happening with nl_langinfo() calls. --- locale.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/locale.c b/locale.c index 9f6b388b6a4b..bd09f56c6d6b 100644 --- a/locale.c +++ b/locale.c @@ -6659,6 +6659,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() */