Add a default case with assert() just in case.

[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..79b62afe2cae92807f333ff73a7d68c3964ab8f3 100644 (file)
--- a/servers/slapd/back-perl/close.c
+++ b/servers/slapd/back-perl/close.c
@@ -1,3 +1,4 @@
+/* $OpenLDAP$ */
 /*
  *      Copyright 1999, John C. Quillan, All rights reserved.
  *
@@ -27,16 +28,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;
+}