pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-06-26 23:57:17 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Need to set this to 1 again before the perl_destruct

Browse Source
This commit is contained in:
Michael Cook (mackal)
2015-01-03 15:14:12 -05:00
parent 77b8e9ec6e
commit 6897aef4b5
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
zone/embperl.cpp
+1
View File
@@ -210,6 +210,7 @@ Embperl::~Embperl()
" if(tied *STDERR) { untie(*STDERR); }" " if(tied *STDERR) { untie(*STDERR); }"
,FALSE); ,FALSE);
#endif #endif
PL_perl_destruct_level = 1;
perl_destruct(my_perl); perl_destruct(my_perl);
perl_free(my_perl); perl_free(my_perl);
PERL_SYS_TERM(); PERL_SYS_TERM();