Employ PL_shutdownhook

Perl · Sep 30, 2024 · db4b30a · db4b30a
1 parent 23d1cae
commit db4b30a
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 8 deletions.
diff --git a/dosish.h b/dosish.h
@@ -31,10 +31,10 @@
  * to work, but must NOT be retained in production code. */
 #ifndef PERL_SYS_TERM_BODY
 #  define PERL_SYS_TERM_BODY()                         \
-    ENV_TERM; USER_PROP_MUTEX_TERM; LOCALE_TERM;       \
-    HINTS_REFCNT_TERM; KEYWORD_PLUGIN_MUTEX_TERM;      \
-    OP_CHECK_MUTEX_TERM; OP_REFCNT_TERM;               \
-    PERLIO_TERM; MALLOC_TERM; 
+    SHUTDOWN_TERM; ENV_TERM; USER_PROP_MUTEX_TERM;      \
+    LOCALE_TERM;INTS_REFCNT_TERM;                      \
+    KEYWORD_PLUGIN_MUTEX_TERM;OP_CHECK_MUTEX_TERM;     \
+    OP_REFCNT_TERM;PERLIO_TERM; MALLOC_TERM;
 #endif
 #define dXSUB_SYS dNOOP
 

diff --git a/perl.h b/perl.h
@@ -3606,6 +3606,8 @@ freeing any remaining Perl interpreters.
 #define PERL_SYS_INIT3(argc, argv, env)	Perl_sys_init3(argc, argv, env)
 #define PERL_SYS_TERM()			Perl_sys_term()
 
+#define SHUTDOWN_TERM PL_shutdownhook();
+
 #ifndef PERL_WRITE_MSG_TO_CONSOLE
 #  define PERL_WRITE_MSG_TO_CONSOLE(io, msg, len) PerlIO_write(io, msg, len)
 #endif

diff --git a/unixish.h b/unixish.h
@@ -155,10 +155,10 @@ int afstat(int fd, struct stat *statb);
  * to work, but must NOT be retained in production code. */
 #ifndef PERL_SYS_TERM_BODY
 #  define PERL_SYS_TERM_BODY()                                          \
-                    ENV_TERM; USER_PROP_MUTEX_TERM; LOCALE_TERM;        \
-                    HINTS_REFCNT_TERM; KEYWORD_PLUGIN_MUTEX_TERM;       \
-                    OP_CHECK_MUTEX_TERM; OP_REFCNT_TERM;                \
-                    PERLIO_TERM; MALLOC_TERM;                           \
+                    SHUTDOWN_TERM; ENV_TERM; USER_PROP_MUTEX_TERM;      \
+                    LOCALE_TERM; HINTS_REFCNT_TERM;                     \
+                    KEYWORD_PLUGIN_MUTEX_TERM; OP_CHECK_MUTEX_TERM;     \
+                    OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM;           \
                     PLATFORM_SYS_TERM_;
 #endif
 

diff --git a/win32/win32.c b/win32/win32.c
@@ -5502,6 +5502,7 @@ Perl_win32_init(int *argcp, char ***argvp)
 void
 Perl_win32_term(void)
 {
+    SHUTDOWN_TERM;
     HINTS_REFCNT_TERM;
     OP_REFCNT_TERM;
     PERLIO_TERM;