Add a few comments to help detail some of these functions.

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

diff --git a/servers/slapd/back-perl/bind.c b/servers/slapd/back-perl/bind.c
index 4304348128e1a3bf587f1787727096fe885d75e5..b4cd6ca45c7f7c4c9419ac861e595149b429912b 100644 (file)
--- a/servers/slapd/back-perl/bind.c
+++ b/servers/slapd/back-perl/bind.c
@@ -45,7 +45,7 @@ perl_back_bind(
 
        *edn = NULL;
 
-       pthread_mutex_lock( &perl_interpreter_mutex );  
+       ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );  
 
        {
                dSP; ENTER; SAVETMPS;
@@ -70,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 );