]> git.sur5r.net Git - openldap/blobdiff - servers/slapd/back-perl/search.c
Add a default case with assert() just in case.
[openldap] / servers / slapd / back-perl / search.c
index e3b5928aae90aaa4595b2228ad91e5c7de3cc64d..1e71424d67163051af324aee20dc263a521667ee 100644 (file)
@@ -66,7 +66,7 @@ perl_back_search(
                XPUSHs(sv_2mortal(newSViv( timelimit )));
                XPUSHs(sv_2mortal(newSViv( attrsonly )));
 
-               for ( an = attrs; an; an = an->an_next ) {
+               for ( an = attrs; an && an->an_name.bv_val; an++ ) {
                        XPUSHs(sv_2mortal(newSVpv( an->an_name.bv_val , 0)));
                }
                PUTBACK;