aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-02-02 15:08:01 -05:00
Code

Revert r4871, it breaks /script reset.

Browse Source 
git-svn-id: file:///var/www/svn.irssi.org/SVN/irssi/trunk@4992 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Emanuele Giaquinta 2009-01-17 22:28:47 +00:00 committed by exg
parent 2129c4b229
commit 822e6caee8
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -111,20 +111,17 @@ static void xs_init(pTHX)
/* Initialize perl interpreter */ /* Initialize perl interpreter */
void perl_scripts_init(void) void perl_scripts_init(void)
{ {
char *argarray[] = {"", "-e", "0"}; char *args[] = {"", "-e", "0"};
char **args = argarray;
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, argc, args, NULL); perl_parse(my_perl, xs_init, 3, 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
@ -168,7 +165,6 @@ 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;
} }