aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2024-06-25 01:05:37 +00:00
Code

[perl] static char[]

Browse Source
This commit is contained in:
Witold Filipczyk 2022-01-30 18:56:18 +01:00
parent f56e4f09f3
commit feac3151f3
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/scripting/perl/core.c
View File

@ -95,13 +95,16 @@ init_perl(struct module *module)
* Is passing @environ strictly needed ? --Zas */
/* PERL_SYS_INIT3 may not be defined, it depends on the system. */
static char c_empty[] = "";
#ifdef PERL_SYS_INIT3
char *my_argvec[] = { NULL, NULL };
char **my_argv = my_argvec;
int my_argc = 0;
/* A hack to prevent unused variables warnings. */
my_argv[my_argc++] = "";
my_argv[my_argc++] = c_empty;
PERL_SYS_INIT3(&my_argc, &my_argv, &environ);
#endif
@ -110,8 +113,8 @@ init_perl(struct module *module)
if (my_perl) {
char *hook_global = get_global_hook_file();
char *hook_local = get_local_hook_file();
char *global_argv[] = { "", hook_global};
char *local_argv[] = { "", hook_local};
char *global_argv[] = { c_empty, hook_global};
char *local_argv[] = { c_empty, hook_local};
int err = 1;
perl_construct(my_perl);