ok( my $bind = $ldap->bind( $config->{bind_as}, password => $config->{password} ), 'bind ' . $config->{bind_as} );
ldap_check_error $bind;
+$config->{search}->{filter} = $ENV{FILTER} if $ENV{FILTER};
+
ok( my $search = $ldap->search( %{ $config->{search} } ), 'search ' . dump( $config->{search} ) );
ldap_check_error $search;
foreach my $entry ( $search->entries ) {
-# diag dump $entry;
+ diag dump $entry if $ENV{FILTER};
$entry->dump;
my $missing = 0;