Final tweaks to perl fix.

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

View file

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