debug populate localeconv

Perl · Jan 30, 2024 · 295afbb · 295afbb
1 parent 309edbb
commit 295afbb
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/locale.c b/locale.c
@@ -6006,6 +6006,14 @@ S_populate_hash_from_localeconv(pTHX_ HV * hv,
 #  ifndef LOCALECONV_NEEDS_CRITICAL_SECTION
 
                 if (calculate_utf8ness_here) {
+                    DEBUG_U(PerlIO_printf( Perl_debug_log,
+                            "name=%s, value=%s=%s, locale=%s\n",
+                            category_strings->name,
+                            value,
+                            get_displayable_string(value,
+                                                   value + strlen(value),
+                                                   false),
+                            locale));
                     utf8ness =
                       (   UTF8NESS_YES
                        == get_locale_string_utf8ness_i(value,