mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 08:38:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Employ PL_shutdownhook

Browse Source
This commit is contained in:
Leon Timmermans 2021-08-06 16:31:06 +02:00
parent 23d1caeec8
commit db4b30a0ee
4 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dosish.h
View File

@ -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

2
perl.h
View File

@ -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

8
unixish.h
View File

@ -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

1
win32/win32.c
View File

@ -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;