Commit d3aae2dc authored by Howard Chu's avatar Howard Chu
Browse files

ITS#5658 hppa fixes

parent 6f2cfa70
......@@ -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 );
......
......@@ -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;
}
......
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