mirror of
https://github.com/irssi/irssi.git
synced 2024-09-01 04:14:16 -04:00
Set PL_perl_destruct_level to 1 before calling perl_destruct, without
it /script reset may cause irssi to crash. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4817 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
parent
b85e843297
commit
97da8b64f4
@ -162,6 +162,7 @@ void perl_scripts_deinit(void)
|
||||
/*perl_eval_pv("eval { foreach my $lib (@DynaLoader::dl_librefs) { DynaLoader::dl_unload_file($lib); } }", TRUE);*/
|
||||
|
||||
/* perl interpreter */
|
||||
PL_perl_destruct_level = 1;
|
||||
perl_destruct(my_perl);
|
||||
perl_free(my_perl);
|
||||
my_perl = NULL;
|
||||
|
Loading…
Reference in New Issue
Block a user