From 4bd56ec361921d609e838f702ab4747731e9e325 Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Fri, 21 Jul 2000 16:25:45 +0000 Subject: [PATCH] Set perl destruct level to 1 when destroying the perl interpreter with /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 --- src/perl/irssi-perl.c | 1 + 1 file changed, 1 insertion(+) diff --git a/src/perl/irssi-perl.c b/src/perl/irssi-perl.c index 56b40c67..138cc54f 100644 --- a/src/perl/irssi-perl.c +++ b/src/perl/irssi-perl.c @@ -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;