Implemented the open, init functions correctly

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

diff --git a/servers/slapd/back-perl/search.c b/servers/slapd/back-perl/search.c
index e85435fe65dff25ed78e931e36fd85e89d185218..b53809ba638722d86dc28e1653c3472b06ad1977 100644 (file)
--- a/servers/slapd/back-perl/search.c
+++ b/servers/slapd/back-perl/search.c
@@ -50,7 +50,7 @@ perl_back_search(
        char *buf;
        int i;
 
-       pthread_mutex_lock( &perl_interpreter_mutex );  
+       ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );  
 
        {
                dSP; ENTER; SAVETMPS;
@@ -95,7 +95,7 @@ perl_back_search(
                PUTBACK; FREETMPS; LEAVE;
        }
 
-       pthread_mutex_unlock( &perl_interpreter_mutex );        
+       ldap_pvt_thread_mutex_unlock( &perl_interpreter_mutex );        
 
        send_ldap_result( conn, op, err, matched, info );
 }