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

ITS#4358, thanks to Kevine Zerbib

Browse source
This commit is contained in:
Quanah Gibson-Mount 2006-08-28 01:07:25 +00:00
parent 80073aefa3
commit 761b0a239d
3 changed files with 5 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servers/slapd/back-perl/bind.c
View file

@ -32,7 +32,7 @@ perl_back_bind(
PerlBackend *perl_back = (PerlBackend *) op->o_bd->be_private;
#ifdef HAVE_WIN32_ASPERL
#if defined(HAVE_WIN32_ASPERL) || defined(USE_ITHREADS)
PERL_SET_CONTEXT( PERL_INTERPRETER );
#endif

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

@ -35,7 +35,9 @@ perl_back_initialize(
BackendInfo *bi
)
{
bi->bi_open = perl_back_open;
char *embedding[] = { "", "-e", "0" };
bi->bi_open = NULL;
bi->bi_config = 0;
bi->bi_close = perl_back_close;
bi->bi_destroy = 0;
@ -63,16 +65,7 @@ perl_back_initialize(
bi->bi_connection_init = 0;
bi->bi_connection_destroy = 0;
return 0;
}
int
perl_back_open(
BackendInfo *bi
)
{
char *embedding[] = { "", "-e", "0" };
/* injecting code from perl_back_open, because using fonction reference (bi->bi_open) is not functional */
Debug( LDAP_DEBUG_TRACE, "perl backend open\n", 0, 0, 0 );
if( PERL_INTERPRETER != NULL ) {

1
servers/slapd/back-perl/proto-perl.h
View file

@ -22,7 +22,6 @@ LDAP_BEGIN_DECL
extern BI_init perl_back_initialize;
extern BI_open perl_back_open;
extern BI_close perl_back_close;
extern BI_db_init perl_back_db_init;