pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-03-10 10:12:24 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
zone/embperl.cpp
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();