Merge remote branch 'origin/mdb.master'

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

diff --git a/servers/slapd/back-perl/search.c b/servers/slapd/back-perl/search.c
index e50fa0c128d71bf5cccf6f65e6e1dcd42a1cebfb..c7428010f816d4c1d8da5ac6b8469d0d958c041d 100644 (file)
--- a/servers/slapd/back-perl/search.c
+++ b/servers/slapd/back-perl/search.c
@@ -1,7 +1,7 @@
 /* $OpenLDAP$ */
 /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
  *
- * Copyright 1999-2011 The OpenLDAP Foundation.
+ * Copyright 1999-2012 The OpenLDAP Foundation.
  * Portions Copyright 1999 John C. Quillan.
  * Portions Copyright 2002 myinternet Limited.
  * All rights reserved.
@@ -35,27 +35,6 @@ perl_back_search(
        int i;
 
        PERL_SET_CONTEXT( PERL_INTERPRETER );
-
-       {
-               Entry base = {0};
-               slap_mask_t mask;
-               /* Require search access to base */
-               base.e_name = op->o_req_dn;
-               base.e_nname = op->o_req_ndn;
-               if ( !access_allowed_mask( op, &base, slap_schema.si_ad_entry,
-                                       NULL, ACL_SEARCH, NULL, &mask ))
-               {
-                       if ( !ACL_GRANT( mask, ACL_DISCLOSE )) {
-                               rs->sr_err = LDAP_NO_SUCH_OBJECT;
-                       } else {
-                               rs->sr_err = LDAP_INSUFFICIENT_ACCESS;
-                       }
-
-                       send_ldap_result( op, rs );
-                       return rs->sr_err;
-               }
-       }
-
        ldap_pvt_thread_mutex_lock( &perl_interpreter_mutex );  
 
        {