Changed struct berval ** to BVarray

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

diff --git a/servers/slapd/back-perl/search.c b/servers/slapd/back-perl/search.c
index f40a367750f66d5f1b22ef75d7bf8ef21b31c199..e3b5928aae90aaa4595b2228ad91e5c7de3cc64d 100644 (file)
--- a/servers/slapd/back-perl/search.c
+++ b/servers/slapd/back-perl/search.c
@@ -39,7 +39,7 @@ perl_back_search(
        int timelimit,
        Filter *filter,
        const char *filterstr,
-       char **attrs,
+       AttributeName *attrs,
        int attrsonly
        )
 {
@@ -48,6 +48,7 @@ perl_back_search(
        int err = 0;
        char *matched = NULL, *info = NULL;
        PerlBackend *perl_back = (PerlBackend *)be->be_private;
+       AttributeName *an;
        Entry   *e;
        char *buf;
        int i;
@@ -65,8 +66,8 @@ perl_back_search(
                XPUSHs(sv_2mortal(newSViv( timelimit )));
                XPUSHs(sv_2mortal(newSViv( attrsonly )));
 
-               for ( i = 0; attrs != NULL && attrs[i] != NULL; i++ ) {
-                       XPUSHs(sv_2mortal(newSVpv( attrs[i] , 0)));
+               for ( an = attrs; an; an = an->an_next ) {
+                       XPUSHs(sv_2mortal(newSVpv( an->an_name.bv_val , 0)));
                }
                PUTBACK;