aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

Set perl destruct level to 1 when destroying the perl interpreter with

Browse Source 
/perlflush. This should close all the open files etc.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@498 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-07-21 16:25:45 +00:00 committed by cras
parent 158817c858
commit 4bd56ec361
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/perl/irssi-perl.c
View File

@ -175,6 +175,7 @@ static void irssi_perl_stop(void)
while (perl_timeouts != NULL) while (perl_timeouts != NULL)
perl_timeout_destroy(perl_timeouts->data); perl_timeout_destroy(perl_timeouts->data);
PL_perl_destruct_level = 1;
perl_destruct(irssi_perl_interp); perl_destruct(irssi_perl_interp);
perl_free(irssi_perl_interp); perl_free(irssi_perl_interp);
irssi_perl_interp = NULL; irssi_perl_interp = NULL;