From 6897aef4b5cf7ef21681d9974af32580eb148c85 Mon Sep 17 00:00:00 2001
From: "Michael Cook (mackal)" <mcook@mackal.net>
Date: Sat, 3 Jan 2015 15:14:12 -0500
Subject: [PATCH] Need to set this to 1 again before the perl_destruct

---
 zone/embperl.cpp | 1 +
 1 file changed, 1 insertion(+)

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