diff options
| author | Zefram <zefram@fysh.org> | 2017-12-22 10:07:47 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2017-12-22 10:07:47 +0000 |
| commit | 8e920bd341e241f50a74dbf8aa343319f204e200 (patch) | |
| tree | bcfac3272cdba4520e246ae057f62a19e2a68989 /symbian | |
| parent | 503bc07b4b9e34ed04a725b2bc8faec1ae0f3be2 (diff) | |
| download | perl-8e920bd341e241f50a74dbf8aa343319f204e200.tar.gz | |
set PERL_EXIT_DESTRUCT_END in all embeddings
The new tests in commit 503bc07b4b9e34ed04a725b2bc8faec1ae0f3be2
showed up platform differences in whether END blocks get run.
Set PERL_EXIT_DESTRUCT_END in all embeddings to make this consistent.
Diffstat (limited to 'symbian')
| -rw-r--r-- | symbian/PerlBase.cpp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/symbian/PerlBase.cpp b/symbian/PerlBase.cpp index 9312abeb55..88810bfd12 100644 --- a/symbian/PerlBase.cpp +++ b/symbian/PerlBase.cpp @@ -141,6 +141,10 @@ 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"), |