diff options
| -rw-r--r-- | symbian/PerlBase.cpp | 13 |
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) |