zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-10 12:23:37 +02:00
Code Issues Projects Releases Packages Wiki Activity

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
commit 4bd56ec361
1 changed files with 1 additions and 0 deletions
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)
perl_timeout_destroy(perl_timeouts->data);
PL_perl_destruct_level = 1;
perl_destruct(irssi_perl_interp);
perl_free(irssi_perl_interp);
irssi_perl_interp = NULL;