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

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

diff --git a/servers/slapd/back-perl/init.c b/servers/slapd/back-perl/init.c
index c62391f468feb278934d7be2b957e9cf2d7001c9..aafd9fd63959a3cde57a6077557d5e228bbdf68e 100644 (file)
--- a/servers/slapd/back-perl/init.c
+++ b/servers/slapd/back-perl/init.c
@@ -25,10 +25,8 @@
 #include "perl_back.h"
 
 
-LDAP_F( void )
-perl_back_xs_init LDAP_P((void));
-LDAP_F( void )
-boot_DynaLoader LDAP_P((CV* cv));
+static void perl_back_xs_init LDAP_P((void));
+EXT void boot_DynaLoader LDAP_P((CV* cv));
 
 PerlInterpreter *perl_interpreter = NULL;
 ldap_pvt_thread_mutex_t        perl_interpreter_mutex;
@@ -38,7 +36,7 @@ ldap_pvt_thread_mutex_t       perl_interpreter_mutex;
 int back_perl_LTX_init_module(int argc, char *argv[]) {
     BackendInfo bi;
 
-    memset( &bi, 0, sizeof(bi) );
+    memset( &bi, '\0', sizeof(bi) );
     bi.bi_type = "perl";
     bi.bi_init = perl_back_initialize;
 
@@ -96,7 +94,11 @@ perl_back_initialize(
        bi->bi_op_delete = perl_back_delete;
        bi->bi_op_abandon = 0;
 
+       bi->bi_extended = 0;
+
        bi->bi_acl_group = 0;
+       bi->bi_acl_attribute = 0;
+       bi->bi_chk_referrals = 0;
 
        bi->bi_connection_init = 0;
        bi->bi_connection_destroy = 0;
@@ -119,7 +121,7 @@ perl_back_db_init(
 )
 {
        be->be_private = (PerlBackend *) ch_malloc( sizeof(PerlBackend) );
-       memset( be->be_private, 0, sizeof(PerlBackend));
+       memset( be->be_private, '\0', sizeof(PerlBackend));
 
        Debug( LDAP_DEBUG_TRACE, "perl backend db init\n", 0, 0, 0 );