Removed unnecessary definition that is already in core.schema.

[openldap] / servers / slapd / back-perl / bind.c

diff --git a/servers/slapd/back-perl/bind.c b/servers/slapd/back-perl/bind.c
index 0e08971253376d3ae262eaa51759443d7b554545..b4cd6ca45c7f7c4c9419ac861e595149b429912b 100644 (file)
--- a/servers/slapd/back-perl/bind.c
+++ b/servers/slapd/back-perl/bind.c
@@ -34,7 +34,8 @@ perl_back_bind(
        Operation *op,
        char *dn,
        int method,
-       struct berval *cred
+       struct berval *cred,
+       char** edn
 )
 {
        int return_code;
@@ -42,7 +43,9 @@ perl_back_bind(
 
        PerlBackend *perl_back = (PerlBackend *) be->be_private;
 
-       pthread_mutex_lock( &perl_interpreter_mutex );  
+       *edn = NULL;
+
+       ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );  
 
        {
                dSP; ENTER; SAVETMPS;
@@ -67,7 +70,7 @@ perl_back_bind(
                PUTBACK; FREETMPS; LEAVE;
        }
 
-       pthread_mutex_unlock( &perl_interpreter_mutex );        
+       ldap_pvt_thread_mutex_unlock( &perl_interpreter_mutex );        
 
        Debug( LDAP_DEBUG_ANY, "Perl BIND\n", 0, 0, 0 );