aniani/elinks
1
0
Fork 0
mirror of https://github.com/rkd77/elinks.git synced 2025-01-03 14:57:44 -05:00
Code

Bug 1014: Fix incompatible pointer type in init_perl.

Browse Source 
The second argument of PERL_SYS_INIT3 should be a char ***
but ELinks was giving it a char *(*)[1].

Also, enlarge the array to 2 elements, so that my_argv[my_argc] == NULL
like in main().  PERL_SYS_INIT3 seems hardly documented at all so I'm
not sure this is necessary, but it shouldn't hurt.
This commit is contained in:
Kalle Olavi Niemitalo 2008-06-02 01:35:47 +03:00 committed by Kalle Olavi Niemitalo
parent 9dbfdb4738
commit 8d0677e76a
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
NEWS
View File

@ -26,6 +26,7 @@ To be released as 0.11.4.
* major bug 788: don't read STRLEN n_a, which isn't initialized by * major bug 788: don't read STRLEN n_a, which isn't initialized by
POPpx of Perl v5.8.8 and later POPpx of Perl v5.8.8 and later
* fix query parsing in file: URIs for local CGI (was broken in 0.11.3) * fix query parsing in file: URIs for local CGI (was broken in 0.11.3)
* bug 451: fix incompatible pointer type in PERL_SYS_INIT3 call
* bug 691: don't look up bogus IPv4 addresses based on characters of a * bug 691: don't look up bogus IPv4 addresses based on characters of a
hostname hostname
* bug 712: GnuTLS works on https://www-s.uiuc.edu/[] * bug 712: GnuTLS works on https://www-s.uiuc.edu/[]

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

@ -76,7 +76,8 @@ init_perl(struct module *module)
/* PERL_SYS_INIT3 may not be defined, it depends on the system. */ /* PERL_SYS_INIT3 may not be defined, it depends on the system. */
#ifdef PERL_SYS_INIT3 #ifdef PERL_SYS_INIT3
char *my_argv[] = { NULL }; char *my_argvec[] = { NULL, NULL };
char **my_argv = my_argvec;
int my_argc = 0; int my_argc = 0;
/* A hack to prevent unused variables warnings. */ /* A hack to prevent unused variables warnings. */