diff options
author | LemonBoy <LemonBoy@users.noreply.github.com> | 2017-01-15 22:33:42 +0100 |
---|---|---|
committer | GitHub <noreply@github.com> | 2017-01-15 22:33:42 +0100 |
commit | 6e36ddc6b7cc1b87005743da4e58bd1d3c8182be (patch) | |
tree | dde50b3e7aeb842cd1c5c1e6066c104f5cb9a87a | |
parent | 305b02fc63bef37a8ddf4e8cdb6b961da07b8c66 (diff) | |
parent | 677fb1f55ca52d0e43c93f7d8361d333ff5bffd6 (diff) | |
download | irssi-6e36ddc6b7cc1b87005743da4e58bd1d3c8182be.zip |
Merge pull request #619 from hannob/master
perl_parse needs NULL terminated parameter list.
-rw-r--r-- | src/perl/perl-core.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 2c61df70..e4bde559 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -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 |