Perl memleak fix

This may need more test!!
This commit is contained in:
Michael Cook (mackal) 2015-01-03 13:54:31 -05:00
parent ea6ab5b10f
commit 77b8e9ec6e

View File

@ -210,6 +210,7 @@ Embperl::~Embperl()
" if(tied *STDERR) { untie(*STDERR); }" " if(tied *STDERR) { untie(*STDERR); }"
,FALSE); ,FALSE);
#endif #endif
perl_destruct(my_perl);
perl_free(my_perl); perl_free(my_perl);
PERL_SYS_TERM(); PERL_SYS_TERM();
my_perl = NULL; my_perl = NULL;