aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-11-03 04:27:19 -05:00
Code

Merge pull request #619 from hannob/master

Browse Source 
perl_parse needs NULL terminated parameter list.
This commit is contained in:
LemonBoy 2017-01-15 22:33:42 +01:00 committed by ailin-nemui
parent d63c93ae1d
commit 1f42d2aa95
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,7 +41,7 @@ GSList *perl_scripts;
PerlInterpreter *my_perl;
static int print_script_errors;
static char *perl_args[] = {"", "-e", "0"};
static char *perl_args[] = {"", "-e", "0", NULL};
#define IS_PERL_SCRIPT(file) \
(strlen(file) > 3 && g_strcmp0(file+strlen(file)-3, ".pl") == 0)
@ -123,7 +123,7 @@ void perl_scripts_init(void)
my_perl = perl_alloc();
perl_construct(my_perl);
perl_parse(my_perl, xs_init, G_N_ELEMENTS(perl_args), perl_args, NULL);
perl_parse(my_perl, xs_init, G_N_ELEMENTS(perl_args)-1, perl_args, NULL);
#if PERL_STATIC_LIBS == 1
perl_eval_pv("Irssi::Core::->boot_Irssi_Core(0.9);", TRUE);
#endif