Implemented the open, init functions correctly

[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..61c8f03e5bf05027dbeb6aa5d14b9b2e190a2513 100644 (file)
--- a/servers/slapd/back-perl/close.c
+++ b/servers/slapd/back-perl/close.c
@@ -27,16 +27,38 @@
  *
  **********************************************************/
 
-void
+int
 perl_back_close(
-       Backend *be
+       BackendInfo *bd
 )
 {
-       pthread_mutex_lock( &perl_interpreter_mutex );  
+       ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );  
 
        perl_destruct(perl_interpreter);
+
+       ldap_pvt_thread_mutex_unlock( &perl_interpreter_mutex );        
+
+       return 0;
+}
+
+int
+perl_back_destroy(
+       BackendInfo *bd
+)
+{
        perl_free(perl_interpreter);
+       perl_interpreter = NULL;
+
+       ldap_pvt_thread_mutex_destroy( &perl_interpreter_mutex );       
 
-       pthread_mutex_unlock( &perl_interpreter_mutex );        
+       return 0;
 }
 
+int
+perl_back_db_destroy(
+       BackendDB *be
+)
+{
+       free( be->be_private );
+       be->be_private = NULL;
+}