From 77b8e9ec6e6c1df7753e9e1c26227a55b30fce04 Mon Sep 17 00:00:00 2001
From: "Michael Cook (mackal)" <mcook@mackal.net>
Date: Sat, 3 Jan 2015 13:54:31 -0500
Subject: [PATCH] Perl memleak fix

This may need more test!!
---
 zone/embperl.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/zone/embperl.cpp b/zone/embperl.cpp
index 9f05d8711..87d543cff 100644
--- a/zone/embperl.cpp
+++ b/zone/embperl.cpp
@@ -210,6 +210,7 @@ Embperl::~Embperl()
 		"	if(tied *STDERR) { untie(*STDERR); }"
 		,FALSE);
 #endif
+	perl_destruct(my_perl);
 	perl_free(my_perl);
 	PERL_SYS_TERM();
 	my_perl = NULL;