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 /symbian | |
| 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 'symbian')
| -rw-r--r-- | symbian/PerlBase.cpp | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/symbian/PerlBase.cpp b/symbian/PerlBase.cpp index 88810bfd12..9312abeb55 100644 --- a/symbian/PerlBase.cpp +++ b/symbian/PerlBase.cpp @@ -141,10 +141,6 @@ void CPerlBase::ConstructL() User::LeaveIfNull(iPerl); iState = EPerlAllocated; perl_construct(iPerl); // returns void - { - PerlInterpreter *my_perl = iPerl; - PL_exit_flags |= PERL_EXIT_DESTRUCT_END; - } if (!iStdioInitFunc) { iConsole = Console::NewL(_L("Perl Console"), |