--- perl_ldap.orig	2007-10-20 22:30:33.000000000 +0000
+++ perl_ldap	2007-10-20 22:32:50.000000000 +0000
@@ -397,7 +397,7 @@
     my $ref;
     my $xml = new XML::Simple;
 
-    $msg = $ldap->search( filter => '(uidNumber=*)', base => $basedn ) if !($uid);
+    $msg = $ldap->search( filter => '(&(uidNumber=*)(!(gentooAccess=infra-system.group)))', base => $basedn ) if !($uid);
     $msg = $ldap->search( filter => "(uid=$uid)", base => $basedn ) if $uid;
     $msg->code && warn "error: ", $msg->error;