Need to set this to 1 again before the perl_destruct

This commit is contained in:
Michael Cook (mackal)
2015-01-03 15:14:12 -05:00
parent 77b8e9ec6e
commit 6897aef4b5
+1
View File
@@ -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();