diff options
author | David Mitchell <davem@iabyn.com> | 2018-05-09 10:54:55 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2018-05-11 08:37:20 +0100 |
commit | 64a9c780950becebc7326a31d067801ec9b187a2 (patch) | |
tree | 861a1fcfd3643948f372bf91d956e0f5b0b95c57 /win32 | |
parent | 6b12a45f5c460336891492f0e67595db5af4983d (diff) | |
download | perl-64a9c780950becebc7326a31d067801ec9b187a2.tar.gz |
Revert "set PERL_EXIT_DESTRUCT_END in all embeddings"
This reverts commit 8e920bd341e241f50a74dbf8aa343319f204e200.
Also skip the tests in t/op/blocks.t
RT #132863
8e920bd341 sets the PERL_EXIT_DESTRUCT_END flag on non-UNIXy platforms,
like is already done on UNIXy platforms. This makes things like
BEGIN { exit(1) } call END blocks on those platforms (like they already
do on UNIX).
But it caused problems with win32 pseudo-forks, so revert for 5.28
and re-address the issues sometime later.
Diffstat (limited to 'win32')
-rw-r--r-- | win32/perllib.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/win32/perllib.c b/win32/perllib.c index 25b20156ec..246f67aa1a 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -230,7 +230,6 @@ 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(). |