diff options
| author | Timo Sirainen <cras@irssi.org> | 2000-07-21 16:25:45 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2000-07-21 16:25:45 +0000 |
| commit | 4bd56ec361921d609e838f702ab4747731e9e325 (patch) | |
| tree | badce839b65ea3f2e8be2bf118d61263970ff805 /src/perl/irssi-perl.c | |
| parent | 158817c8582c2920634fcb80af2bd9f73900271d (diff) | |
| download | irssi-4bd56ec361921d609e838f702ab4747731e9e325.zip | |
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
Diffstat (limited to 'src/perl/irssi-perl.c')
| -rw-r--r-- | src/perl/irssi-perl.c | 1 |
1 files changed, 1 insertions, 0 deletions
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; |