Add a safety check to bvcasechr

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

diff --git a/servers/slapd/back-perl/bind.c b/servers/slapd/back-perl/bind.c
index 9d20afd783aa525c05e040271083c3d2d58423bd..4801400feaf4a6d5dad780537ed1a8c27020456e 100644 (file)
--- a/servers/slapd/back-perl/bind.c
+++ b/servers/slapd/back-perl/bind.c
@@ -33,11 +33,11 @@ perl_back_bind(
        Backend *be,
        Connection *conn,
        Operation *op,
-       char *dn,
+       struct berval *dn,
+       struct berval *ndn,
        int method,
-       char            *mech,
        struct berval *cred,
-       char** edn
+       struct berval *edn
 )
 {
        int return_code;
@@ -45,8 +45,6 @@ perl_back_bind(
 
        PerlBackend *perl_back = (PerlBackend *) be->be_private;
 
-       *edn = NULL;
-
        ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );  
 
        {
@@ -54,7 +52,7 @@ perl_back_bind(
 
                PUSHMARK(sp);
                XPUSHs( perl_back->pb_obj_ref );
-               XPUSHs(sv_2mortal(newSVpv( dn , 0)));
+               XPUSHs(sv_2mortal(newSVpv( dn->bv_val , 0)));
                XPUSHs(sv_2mortal(newSVpv( cred->bv_val , cred->bv_len)));
                PUTBACK;
 
@@ -63,7 +61,7 @@ perl_back_bind(
                SPAGAIN;
 
                if (count != 1) {
-                       croak("Big trouble in back_search\n");
+                       croak("Big trouble in back_bind\n");
                }
 
                return_code = POPi;