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