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 8e320e6b590728e264dfc608545abe58b06f8a20..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
 )
 {
        ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );  
 
        perl_destruct(perl_interpreter);
-       perl_free(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 );       
+
+       return 0;
 }
 
+int
+perl_back_db_destroy(
+       BackendDB *be
+)
+{
+       free( be->be_private );
+       be->be_private = NULL;
+}