Merge remote branch 'origin/mdb.master'

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

diff --git a/servers/slapd/back-perl/init.c b/servers/slapd/back-perl/init.c
index b421881cea409f9f9314e2a09f3e3590d59fbf17..392084233ffcae1af33b4359b10c63b45c84901a 100644 (file)
--- a/servers/slapd/back-perl/init.c
+++ b/servers/slapd/back-perl/init.c
@@ -45,7 +45,7 @@ perl_back_initialize(
        bi->bi_destroy = 0;
 
        bi->bi_db_init = perl_back_db_init;
-       bi->bi_db_config = 0;
+       bi->bi_db_config = perl_back_db_config;
        bi->bi_db_open = perl_back_db_open;
        bi->bi_db_close = 0;
        bi->bi_db_destroy = perl_back_db_destroy;
@@ -104,6 +104,8 @@ perl_back_db_init(
 
        Debug( LDAP_DEBUG_TRACE, "perl backend db init\n", 0, 0, 0 );
 
+       be->be_cf_ocs = be->bd_info->bi_cf_ocs;
+
        return 0;
 }
 
@@ -128,11 +130,7 @@ perl_back_db_open(
 
                PUTBACK;
 
-#ifdef PERL_IS_5_6
                count = call_method("init", G_SCALAR);
-#else
-               count = perl_call_method("init", G_SCALAR);
-#endif
 
                SPAGAIN;