mantarimay/Aegisub
1
0
Fork 0
forked from mia/Aegisub
Code Pull requests Activity

Maybe a fix to autoperl crashing

Browse source 
Originally committed to SVN as r2024.
This commit is contained in:
shb 2008-03-11 23:30:59 +00:00
parent f74845e12b
commit 5ceebc02a2
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
aegisub/auto4_perl.cpp
View file

@ -53,6 +53,7 @@
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;
} }