In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/43639bac1f28a48b8efcdee9011ac1116f2dad8d?hp=c3624cb8d7408c7bfe21b5f565063cc92cecfd19>
- Log ----------------------------------------------------------------- commit 43639bac1f28a48b8efcdee9011ac1116f2dad8d Author: Adam Russell <[email protected]> Date: Sun Jun 28 18:13:28 2009 -0400 patch submission(symbian/PerlBase.cpp) charset="iso-8859-1" I needed to create a new constructor which does not use the cleanup stack since use of the cleanup stack from a console app will cause a kernel panic. Signed-off-by: H.Merijn Brand <[email protected]> ----------------------------------------------------------------------- Summary of changes: symbian/PerlBase.cpp | 13 +++++++++++++ 1 files changed, 13 insertions(+), 0 deletions(-) diff --git a/symbian/PerlBase.cpp b/symbian/PerlBase.cpp index 851fc15..4162e57 100644 --- a/symbian/PerlBase.cpp +++ b/symbian/PerlBase.cpp @@ -55,6 +55,19 @@ CPerlBase::~CPerlBase() Destruct(); } +EXPORT_C CPerlBase* CPerlBase::NewInterpreter(TBool aCloseStdlib, + void (*aStdioInitFunc)(void*), + void *aStdioInitCookie) +{ + CPerlBase* self = new (ELeave) CPerlBase; + self->iCloseStdlib = aCloseStdlib; + self->iStdioInitFunc = aStdioInitFunc; + self->iStdioInitCookie = aStdioInitCookie; + self->ConstructL(); + PERL_APPCTX_SET(self); + return self; +} + EXPORT_C CPerlBase* CPerlBase::NewInterpreterL(TBool aCloseStdlib, void (*aStdioInitFunc)(void*), void *aStdioInitCookie) -- Perl5 Master Repository
