diff options
Diffstat (limited to 'symbian/PerlBase.cpp')
| -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"), |