From 97da8b64f4a6bea5c1a278add2aa21aa4a91ae3b Mon Sep 17 00:00:00 2001
From: Emanuele Giaquinta <exg@irssi.org>
Date: Tue, 13 May 2008 14:27:03 +0000
Subject: [PATCH] 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
---
 src/perl/perl-core.c | 1 +
 1 file changed, 1 insertion(+)

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;