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 <h.m.brand@xs4all.nl>

1 files changed, 13 insertions, 0 deletions

diff --git a/symbian/PerlBase.cpp b/symbian/PerlBase.cpp
index 851fc15673..4162e57759 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)