if ( $id =~ /\*/ ) {
Catalyst::Exception->throw("ID $id contains wildcards!");
}
+ # Trim trailing space or we confuse ourselves
+ $id =~ s/\s+$//;
my $ldap = $self->ldap_bind;
my @searchopts;
if ( defined( $self->user_basedn ) ) {
}
my $usersearch = $ldap->search(@searchopts);
- return if ( $usersearch->is_error );
+ return undef if ( $usersearch->is_error );
my $userentry;
my $user_field = $self->user_field;