From 75d3fa5a0bbc9265e36869d4cbd5e480b1e52192 Mon Sep 17 00:00:00 2001
From: Rodrigo Braz Monteiro <zeratul@cellosoft.com>
Date: Wed, 16 Jan 2008 20:06:52 +0000
Subject: [PATCH] Final tweaks to perl fix.

Originally committed to SVN as r1745.
---
 aegisub/auto4_perl.cpp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/aegisub/auto4_perl.cpp b/aegisub/auto4_perl.cpp
index 9d7639eff..e3656e0f9 100644
--- a/aegisub/auto4_perl.cpp
+++ b/aegisub/auto4_perl.cpp
@@ -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