jrd/irssi
1
0
Fork 0
forked from PsychoticNinja/irssi
Code Issues Pull Requests Projects Releases Wiki Activity

Moved the PL_perl_destruct_level to irssi_perl_init() so Irssi won't

Browse Source 
crash after second /PERLFLUSH.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@528 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-07-23 14:58:54 +00:00 committed by cras
parent 30afa4a611
commit 3e9164df1b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/perl/irssi-perl.c
View File

@ -175,7 +175,6 @@ static void irssi_perl_stop(void)
while (perl_timeouts != NULL) while (perl_timeouts != NULL)
perl_timeout_destroy(perl_timeouts->data); perl_timeout_destroy(perl_timeouts->data);
PL_perl_destruct_level = 1;
perl_destruct(irssi_perl_interp); perl_destruct(irssi_perl_interp);
perl_free(irssi_perl_interp); perl_free(irssi_perl_interp);
irssi_perl_interp = NULL; irssi_perl_interp = NULL;
@ -574,6 +573,7 @@ void irssi_perl_init(void)
command_bind("perlflush", NULL, (SIGNAL_FUNC) cmd_flush); command_bind("perlflush", NULL, (SIGNAL_FUNC) cmd_flush);
signal_grabbed = siglast_grabbed = FALSE; signal_grabbed = siglast_grabbed = FALSE;
PL_perl_destruct_level = 1;
irssi_perl_start(); irssi_perl_start();
irssi_perl_autorun(); irssi_perl_autorun();
} }