locale.c: windows DEBUG stmts

Perl · May 5, 2021 · f42c0cf · f42c0cf
1 parent 13411fb
commit f42c0cf
Showing 1 changed file with 4 additions and 8 deletions.
diff --git a/locale.c b/locale.c
@@ -2671,10 +2671,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;
@@ -2700,10 +2698,8 @@ S_win32_setlocale(pTHX_ int category, const char* locale)
     }
 
     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;
 }