mia/Aegisub
1
0
Fork 1
Code Issues Pull requests Projects Releases Wiki 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

9
aegisub/auto4_perl.cpp
View file

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