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 /NetWare | |
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 'NetWare')
-rw-r--r-- | NetWare/interface.c | 1 | ||||
-rw-r--r-- | NetWare/interface.cpp | 1 |
2 files changed, 0 insertions, 2 deletions
diff --git a/NetWare/interface.c b/NetWare/interface.c index b943d21147..1d298854c9 100644 --- a/NetWare/interface.c +++ b/NetWare/interface.c @@ -62,7 +62,6 @@ ClsPerlHost::PerlCreate(PerlInterpreter *my_perl) /* if (!(my_perl = perl_alloc())) // Allocate memory for Perl. return (1);*/ perl_construct(my_perl); - PL_exit_flags |= PERL_EXIT_DESTRUCT_END; return 1; } diff --git a/NetWare/interface.cpp b/NetWare/interface.cpp index 7fe027933c..b08d6c249e 100644 --- a/NetWare/interface.cpp +++ b/NetWare/interface.cpp @@ -53,7 +53,6 @@ ClsPerlHost::PerlCreate(PerlInterpreter *my_perl) /* if (!(my_perl = perl_alloc())) // Allocate memory for Perl. return (1);*/ perl_construct(my_perl); - PL_exit_flags |= PERL_EXIT_DESTRUCT_END; return 1; } |