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

Call PERL_SYS_INIT3() and PERL_SYS_TERM() as documented in perlembed(1), patch

Browse Source 
by Gerfried Fuchs (debian bug #495059).


git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4871 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Emanuele Giaquinta 2008-08-22 11:54:32 +00:00 committed by exg
parent 7e3bf21139
commit 47f129e0a5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/perl/perl-core.c
View File

@ -112,16 +112,18 @@ static void xs_init(pTHX)
void perl_scripts_init(void) void perl_scripts_init(void)
{ {
char *args[] = {"", "-e", "0"}; char *args[] = {"", "-e", "0"};
int argc = 3;
char *code, *use_code; char *code, *use_code;
perl_scripts = NULL; perl_scripts = NULL;
perl_sources_start(); perl_sources_start();
perl_signals_start(); perl_signals_start();
PERL_SYS_INIT3(&argc, &args, &environ);
my_perl = perl_alloc(); my_perl = perl_alloc();
perl_construct(my_perl); perl_construct(my_perl);
perl_parse(my_perl, xs_init, 3, args, NULL); perl_parse(my_perl, xs_init, &argc, args, NULL);
#if PERL_STATIC_LIBS == 1 #if PERL_STATIC_LIBS == 1
perl_eval_pv("Irssi::Core::boot_Irssi_Core();", TRUE); perl_eval_pv("Irssi::Core::boot_Irssi_Core();", TRUE);
#endif #endif
@ -165,6 +167,7 @@ void perl_scripts_deinit(void)
PL_perl_destruct_level = 1; PL_perl_destruct_level = 1;
perl_destruct(my_perl); perl_destruct(my_perl);
perl_free(my_perl); perl_free(my_perl);
PERL_SYS_TERM();
my_perl = NULL; my_perl = NULL;
} }