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

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

diff --git a/servers/slapd/back-perl/close.c b/servers/slapd/back-perl/close.c
index 34d5a78f15ce94e3cdcaa79a1abe1298898d0cd4..8e320e6b590728e264dfc608545abe58b06f8a20 100644 (file)
--- a/servers/slapd/back-perl/close.c
+++ b/servers/slapd/back-perl/close.c
@@ -32,11 +32,11 @@ perl_back_close(
        Backend *be
 )
 {
-       pthread_mutex_lock( &perl_interpreter_mutex );  
+       ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );  
 
        perl_destruct(perl_interpreter);
        perl_free(perl_interpreter);
 
-       pthread_mutex_unlock( &perl_interpreter_mutex );        
+       ldap_pvt_thread_mutex_unlock( &perl_interpreter_mutex );        
 }