From 5fbe03e04eb0ced1166f97cead8bce8497e23a81 Mon Sep 17 00:00:00 2001
From: Rodrigo Braz Monteiro <zeratul@cellosoft.com>
Date: Wed, 16 Jan 2008 19:56:15 +0000
Subject: [PATCH] Some more hacks to make Perl work (the irony) on VC++

Originally committed to SVN as r1744.
---
 aegisub/auto4_perl.cpp | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/aegisub/auto4_perl.cpp b/aegisub/auto4_perl.cpp
index 5d1e00cdc..9d7639eff 100644
--- a/aegisub/auto4_perl.cpp
+++ b/aegisub/auto4_perl.cpp
@@ -78,12 +78,19 @@ namespace Automation4 {
 	  filename_pattern = _T("*") _T(PERL_SCRIPT_EXTENSION);
 	  
 	  // Perl interpreter initialization (ONE FOR ALL THE SCRIPTS)
+	  char** env = NULL;
+	  int argc = 3;
+	  char *argv[3] = { "aegisub", "-e", "0" };
+#ifdef __WINDOWS__
+	  char **argv2 = (char**) argv;
+	  PERL_SYS_INIT3(&argc,&argv2,&env);
+#endif
 	  parser = perl_alloc();
 	  perl_construct(parser);
-	  char *_embedding[] = { "aegisub", "-e", "0" };
 	  perl_parse(parser, xs_perl_main,
-				 3, _embedding,
+				 argc, argv,
 				 NULL);
+	  //free(argv);
 	  // (That was pretty magic o_O)
 
 	  // Let's register the perl script factory \o/