t/op/goto.t: tests for RT #45091

[perl5.git] / dosish.h

diff --git a/dosish.h b/dosish.h
index 2e4e745..c1305cd 100644 (file)
--- a/dosish.h
+++ b/dosish.h
@@ -52,9 +52,9 @@
 #endif /* DJGPP */
 
 #ifndef PERL_SYS_TERM_BODY
-#  define PERL_SYS_TERM_BODY() \
-    HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM; \
-    OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM
+#  define PERL_SYS_TERM_BODY()                              \
+    HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM;                 \
+    OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; LOCALE_TERM;
 #endif
 #define dXSUB_SYS