From 43639bac1f28a48b8efcdee9011ac1116f2dad8d Mon Sep 17 00:00:00 2001 From: Adam Russell Date: Sun, 28 Jun 2009 18:13:28 -0400 Subject: [PATCH] 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 --- symbian/PerlBase.cpp | 13 +++++++++++++ 1 file changed, 13 insertions(+) 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) -- 2.7.4