3 files changed, 52 insertions, 0 deletions

diff --git a/net/openldap23-server/files/patch-servers_slapd_back_perl_bind.c b/net/openldap23-server/files/patch-servers_slapd_back_perl_bind.c
new file mode 100644
index 000000000000..97af0fc2c97f
--- /dev/null
+++ b/net/openldap23-server/files/patch-servers_slapd_back_perl_bind.c
@@ -0,0 +1,11 @@
+--- servers/slapd/back-perl/bind.c.orig	Fri Aug 18 16:04:41 2006
++++ servers/slapd/back-perl/bind.c	Fri Aug 18 16:05:14 2006
+@@ -32,7 +32,7 @@
+ 
+ 	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
+ 
diff --git a/net/openldap23-server/files/patch-servers_slapd_back_perl_init.c b/net/openldap23-server/files/patch-servers_slapd_back_perl_init.c
new file mode 100644
index 000000000000..c07a6ccc891a
--- /dev/null
+++ b/net/openldap23-server/files/patch-servers_slapd_back_perl_init.c
@@ -0,0 +1,31 @@
+--- servers/slapd/back-perl/init.c.orig	Fri Aug 18 16:01:34 2006
++++ servers/slapd/back-perl/init.c	Fri Aug 18 16:04:28 2006
+@@ -35,7 +35,9 @@
+ 	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,8 @@
+ 	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 fonctionnal
+ 	Debug( LDAP_DEBUG_TRACE, "perl backend open\n", 0, 0, 0 );
+ 
+ 	if( PERL_INTERPRETER != NULL ) {
diff --git a/net/openldap23-server/files/patch-servers_slapd_back_perl_proto_perl.h b/net/openldap23-server/files/patch-servers_slapd_back_perl_proto_perl.h
new file mode 100644
index 000000000000..19641ca1fae5
--- /dev/null
+++ b/net/openldap23-server/files/patch-servers_slapd_back_perl_proto_perl.h
@@ -0,0 +1,10 @@
+--- servers/slapd/back-perl/proto-perl.h.orig	Fri Aug 18 16:05:27 2006
++++ servers/slapd/back-perl/proto-perl.h	Fri Aug 18 16:05:40 2006
+@@ -22,7 +22,6 @@
+ 
+ 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;