From: Adam Russell <arussell@cs.uml.edu>
Date: Sun, 28 Jun 2009 22:13:28 +0000 (-0400)
Subject: patch submission(symbian/PerlBase.cpp)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=43639bac1f28a48b8efcdee9011ac1116f2dad8d;p=p5sagit%2Fp5-mst-13.2.git

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>
---

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)