Debug wrap wset

Perl · Nov 20, 2023 · dbe2c76 · dbe2c76
1 parent 49a264a
commit dbe2c76
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/locale.c b/locale.c
@@ -4607,8 +4607,8 @@ S_win32_setlocale(pTHX_ int category, const char* locale)
     }
 
     const char * result = wrap_wsetlocale(category, locale);
-    DEBUG_L(PerlIO_printf(Perl_debug_log, "%s\n",
-                          setlocale_debug_string_r(category, locale, result)));
+    DEBUG_Lv(PerlIO_printf(Perl_debug_log, "Return from wrap_wsetlocale: %s\n",
+                           setlocale_debug_string_r(category, locale, result)));
 
     if (! result) {
         SET_EINVAL;