mia/Aegisub
1
0
Fork 1
Code Issues Pull requests Projects Releases Wiki Activity

Final tweaks to perl fix.

Browse source 
Originally committed to SVN as r1745.
This commit is contained in:
Rodrigo Braz Monteiro 2008-01-16 20:06:52 +00:00
parent 5fbe03e04e
commit 75d3fa5a0b
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
aegisub/auto4_perl.cpp
View file

@ -81,7 +81,7 @@ namespace Automation4 {
char** env = NULL; char** env = NULL;
int argc = 3; int argc = 3;
char *argv[3] = { "aegisub", "-e", "0" }; char *argv[3] = { "aegisub", "-e", "0" };
#ifdef __WINDOWS__ #ifdef __VISUALC__
char **argv2 = (char**) argv; char **argv2 = (char**) argv;
PERL_SYS_INIT3(&argc,&argv2,&env); PERL_SYS_INIT3(&argc,&argv2,&env);
#endif #endif
@ -102,6 +102,9 @@ namespace Automation4 {
// Perl interpreter deinitialization // Perl interpreter deinitialization
perl_destruct(parser); perl_destruct(parser);
perl_free(parser); perl_free(parser);
#ifdef __VISUALC__
PERL_SYS_TERM();
#endif
} }
virtual Script* Produce(const wxString &filename) const virtual Script* Produce(const wxString &filename) const