Commit a92d4313 authored by Quanah Gibson-Mount's avatar Quanah Gibson-Mount
Browse files

ITS#5658

parent 3ca683cb
...@@ -40,6 +40,7 @@ OpenLDAP 2.4.17 Engineering ...@@ -40,6 +40,7 @@ OpenLDAP 2.4.17 Engineering
Fixed slapo-collect collectinfo ordering (ITS#6076) Fixed slapo-collect collectinfo ordering (ITS#6076)
Fixed slapo-collect missing equality match rule (ITS#6075) Fixed slapo-collect missing equality match rule (ITS#6075)
Fixed slapo-dds entry expiration (ITS#6169) Fixed slapo-dds entry expiration (ITS#6169)
Fixed slapo-perl symbols (ITS#5658)
Fixed slapo-refint refint_repair handling (ITS#6056) Fixed slapo-refint refint_repair handling (ITS#6056)
Added slapo-rwm rwm-drop-unrequested-attrs config option (ITS#6057) Added slapo-rwm rwm-drop-unrequested-attrs config option (ITS#6057)
Fixed slapo-rwm dn passing (ITS#6070) Fixed slapo-rwm dn passing (ITS#6070)
......
...@@ -31,6 +31,9 @@ perl_back_close( ...@@ -31,6 +31,9 @@ perl_back_close(
perl_destruct(PERL_INTERPRETER); perl_destruct(PERL_INTERPRETER);
perl_free(PERL_INTERPRETER); perl_free(PERL_INTERPRETER);
PERL_INTERPRETER = NULL; PERL_INTERPRETER = NULL;
#ifdef PERL_SYS_TERM
PERL_SYS_TERM();
#endif
ldap_pvt_thread_mutex_destroy( &perl_interpreter_mutex ); ldap_pvt_thread_mutex_destroy( &perl_interpreter_mutex );
......
...@@ -37,6 +37,7 @@ perl_back_initialize( ...@@ -37,6 +37,7 @@ perl_back_initialize(
) )
{ {
char *embedding[] = { "", "-e", "0" }; char *embedding[] = { "", "-e", "0" };
int argc = 3;
bi->bi_open = NULL; bi->bi_open = NULL;
bi->bi_config = 0; bi->bi_config = 0;
...@@ -77,9 +78,15 @@ perl_back_initialize( ...@@ -77,9 +78,15 @@ perl_back_initialize(
ldap_pvt_thread_mutex_init( &perl_interpreter_mutex ); 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_INTERPRETER = perl_alloc();
perl_construct(PERL_INTERPRETER); 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); perl_run(PERL_INTERPRETER);
return 0; return 0;
} }
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment