#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;
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;
bi->bi_extended = 0;
bi->bi_acl_group = 0;
-
-#ifdef HAVE_CYRUS_SASL
- bi->bi_sasl_authorize = 0;
- bi->bi_sasl_getsecret = 0;
- bi->bi_sasl_putsecret = 0;
-#endif /* HAVE_CYRUS_SASL */
+ bi->bi_acl_attribute = 0;
+ bi->bi_chk_referrals = 0;
bi->bi_connection_init = 0;
bi->bi_connection_destroy = 0;
)
{
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 );