summaryrefslogtreecommitdiff
path: root/win32/perllib.c
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2022-08-29 17:30:02 +0200
committerYves Orton <demerphq@gmail.com>2022-09-03 10:05:54 +0200
commit375d68c017193cf7263947ef5c595647f04eb9b8 (patch)
treee9f04e406dd1db2e4b1504c6aa2ed9f4adeba78d /win32/perllib.c
parent197bb3f4412b47e2f91dcf54c64d12d9fd05967b (diff)
downloadperl-375d68c017193cf7263947ef5c595647f04eb9b8.tar.gz
Revert "Revert "set PERL_EXIT_DESTRUCT_END in all embeddings""
This reverts commit 64a9c780950becebc7326a31d067801ec9b187a2.
Diffstat (limited to 'win32/perllib.c')
-rw-r--r--win32/perllib.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/win32/perllib.c b/win32/perllib.c
index a8fe7af9c0..d0d2caf764 100644
--- a/win32/perllib.c
+++ b/win32/perllib.c
@@ -180,6 +180,7 @@ RunPerl(int argc, char **argv, char **env)
if (!(my_perl = perl_alloc()))
return (1);
perl_construct(my_perl);
+ PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
PL_perl_destruct_level = 0;
/* PERL_SYS_INIT() may update the environment, e.g. via ansify_path().