locale.c: windows DEBUG stmts

Perl · Apr 6, 2021 · 960114c · 960114c
1 parent 86a1919
commit 960114c
Showing 1 changed file with 5 additions and 9 deletions.
diff --git a/locale.c b/locale.c
@@ -2658,10 +2658,8 @@ S_win32_setlocale(pTHX_ int category, const char* locale)
 #else
     result = setlocale(category, locale);
 #endif
-    DEBUG_L(STMT_START {
-                PerlIO_printf(Perl_debug_log, "%s\n",
-                            setlocale_debug_string_r(category, locale, result));
-            } STMT_END);
+    DEBUG_L(PerlIO_printf(Perl_debug_log, "%s\n",
+                          setlocale_debug_string_r(category, locale, result)));
 
     if (! override_LC_ALL)  {
         return result;
@@ -2682,15 +2680,13 @@ S_win32_setlocale(pTHX_ int category, const char* locale)
             setlocale(categories[i], result);
 #endif
             DEBUG_Lv(PerlIO_printf(Perl_debug_log, "%s\n",
-                setlocale_debug_string_i(i, result, "not captured")));
+                     setlocale_debug_string_i(i, result, "not captured")));
         }
     }
 
     result = setlocale(LC_ALL, NULL);
-    DEBUG_L(STMT_START {
-                PerlIO_printf(Perl_debug_log, "%s\n",
-                              setlocale_debug_string_c(LC_ALL, NULL, result));
-            } STMT_END);
+    DEBUG_L(PerlIO_printf(Perl_debug_log, "%s\n",
+                          setlocale_debug_string_c(LC_ALL, NULL, result)));
 
     return result;
 }