sub ldap_check_error {
my $o = shift;
ok( ! $o->code, 'no errror' );
diag $o->error if $o->code;
}
sub ldap_check_error {
my $o = shift;
ok( ! $o->code, 'no errror' );
diag $o->error if $o->code;
}
- ok( my $search = $ldap->search( filter => $search ), "search $search" );
- ldap_check_error $search;
- ok( $search->entries, 'have results' );
- return $search;
+ ok( my $result = $ldap->search( filter => $search ), "search $search" );
+ ldap_check_error $result;
+ ok( $result->entries, 'have results' );
+ return $result;