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 /os2 | |
| 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 'os2')
| -rw-r--r-- | os2/perlrexx.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/os2/perlrexx.c b/os2/perlrexx.c index b9f6789677..18d655137d 100644 --- a/os2/perlrexx.c +++ b/os2/perlrexx.c @@ -74,7 +74,6 @@ init_perl(int doparse) if (!my_perl) return 0; perl_construct(my_perl); - PL_exit_flags |= PERL_EXIT_DESTRUCT_END; PL_perl_destruct_level = 1; } if (!doparse) |