upstream/openldap
1
0
Fork 0
mirror of https://git.openldap.org/openldap/openldap.git synced 2026-01-02 04:59:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ITS#7075 Fix back-perl initialization.

Browse source 
Use PERL_SYS_INIT() instead of broken PERL_SYS_INIT3(,,NULL).  Pass its
output variables to perl_parse().  Fix argument type 'char *(*argv)[3]'
to 'char ***argv'.  NULL-terminate argv in case that is needed.
This commit is contained in:
Hallvard Furuseth 2011-11-01 06:28:40 +01:00
parent 074fe6c298
commit 1e62263697
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
servers/slapd/back-perl/init.c
View file

@ -36,7 +36,7 @@ perl_back_initialize(
BackendInfo *bi
)
{
char *embedding[] = { "", "-e", "0" };
char *embedding[] = { "", "-e", "0", NULL }, **argv = embedding;
int argc = 3;
bi->bi_open = NULL;
@ -78,15 +78,15 @@ perl_back_initialize(
ldap_pvt_thread_mutex_init( &perl_interpreter_mutex );
#ifdef PERL_SYS_INIT3
PERL_SYS_INIT3(&argc, &embedding, (char ***)NULL);
#ifdef PERL_SYS_INIT
PERL_SYS_INIT(&argc, &argv);
#endif
PERL_INTERPRETER = perl_alloc();
perl_construct(PERL_INTERPRETER);
#ifdef PERL_EXIT_DESTRUCT_END
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
#endif
perl_parse(PERL_INTERPRETER, perl_back_xs_init, argc, embedding, (char **)NULL);
perl_parse(PERL_INTERPRETER, perl_back_xs_init, argc, argv, (char **)NULL);
perl_run(PERL_INTERPRETER);
return perl_back_init_cf( bi );
}