upstream/openldap
1
0
Fork 0
mirror of https://git.openldap.org/openldap/openldap.git synced 2026-02-12 23:33:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

ITS#5658 hppa fixes

Browse source
This commit is contained in:
Howard Chu 2009-06-23 23:12:15 +00:00
parent 6f2cfa7017
commit d3aae2dc42
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
servers/slapd/back-perl/close.c
View file

@ -31,6 +31,9 @@ perl_back_close(
perl_destruct(PERL_INTERPRETER);
perl_free(PERL_INTERPRETER);
PERL_INTERPRETER = NULL;
#ifdef PERL_SYS_TERM
PERL_SYS_TERM();
#endif
ldap_pvt_thread_mutex_destroy( &perl_interpreter_mutex );

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

@ -37,6 +37,7 @@ perl_back_initialize(
)
{
char *embedding[] = { "", "-e", "0" };
int argc = 3;
bi->bi_open = NULL;
bi->bi_config = 0;
@ -77,9 +78,15 @@ perl_back_initialize(
ldap_pvt_thread_mutex_init( &perl_interpreter_mutex );
#ifdef PERL_SYS_INIT3
PERL_SYS_INIT3(&argc, &embedding, (char **)NULL);
#endif
PERL_INTERPRETER = perl_alloc();
perl_construct(PERL_INTERPRETER);
perl_parse(PERL_INTERPRETER, perl_back_xs_init, 3, embedding, (char **)NULL);
#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_run(PERL_INTERPRETER);
return 0;
}