From 3e9164df1b9ad8433d3c46745b84c5df5f5207df Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sun, 23 Jul 2000 14:58:54 +0000
Subject: [PATCH] Moved the PL_perl_destruct_level to irssi_perl_init() so
 Irssi won't crash after second /PERLFLUSH.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@528 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/irssi-perl.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/perl/irssi-perl.c b/src/perl/irssi-perl.c
index 138cc54f..07f8f81d 100644
--- a/src/perl/irssi-perl.c
+++ b/src/perl/irssi-perl.c
@@ -175,7 +175,6 @@ 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;
@@ -574,6 +573,7 @@ void irssi_perl_init(void)
 	command_bind("perlflush", NULL, (SIGNAL_FUNC) cmd_flush);
 	signal_grabbed = siglast_grabbed = FALSE;
 
+        PL_perl_destruct_level = 1;
 	irssi_perl_start();
 	irssi_perl_autorun();
 }