diff options
| author | Emanuele Giaquinta <exg@irssi.org> | 2008-05-13 14:27:03 +0000 |
|---|---|---|
| committer | exg <exg@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2008-05-13 14:27:03 +0000 |
| commit | 97da8b64f4a6bea5c1a278add2aa21aa4a91ae3b (patch) | |
| tree | f5e3e3db7df764f57e277351e0dbe1e10b5a147e /src | |
| parent | b85e843297263cf03c12b8d867bef0e11bac68f7 (diff) | |
| download | irssi-97da8b64f4a6bea5c1a278add2aa21aa4a91ae3b.zip | |
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
Diffstat (limited to 'src')
| -rw-r--r-- | src/perl/perl-core.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 5e401ead..1814ef36 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -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; |