Maybe a fix to autoperl crashing

Originally committed to SVN as r2024.
This commit is contained in:
shb 2008-03-11 23:30:59 +00:00
parent f74845e12b
commit 5ceebc02a2

View file

@ -53,7 +53,8 @@
namespace Automation4 { namespace Automation4 {
static PerlInterpreter *perl_interpreter = NULL;
/////////////////////////////////// ///////////////////////////////////
// Perl -> C++ interface (XSUBS) // Perl -> C++ interface (XSUBS)
// //
@ -474,6 +475,7 @@ namespace Automation4 {
// ...wait for it to have inited // ...wait for it to have inited
} }
PERL_SET_CONTEXT(perl_interpreter);
ExitCode ec = NULL; ExitCode ec = NULL;
switch(type) { switch(type) {
case CALL: case CALL:
@ -500,6 +502,10 @@ namespace Automation4 {
} }
///////////////////////
// PerlScriptFactory
//
PerlScriptFactory::PerlScriptFactory() PerlScriptFactory::PerlScriptFactory()
{ {
#ifdef WXTRACE_AUTOPERL #ifdef WXTRACE_AUTOPERL
@ -538,6 +544,7 @@ namespace Automation4 {
// (That was pretty magic o_O) // (That was pretty magic o_O)
// Let's register the perl script factory \o/ // Let's register the perl script factory \o/
perl_interpreter = parser;
Register(this); Register(this);
loaded = true; loaded = true;
} }