+0.1003 xxxx
+ - get entries in array context rather than scalar context,
+ allowing for multiple values. patch by scpham.
+
+
0.1002 9 July 2008
- tests updated to use Net::LDAP::Server::Test 0.03
}
my $rolesearch = $ldap->search(@searchopts);
my @roles;
-RESULT: while ( my $entry = $rolesearch->pop_entry ) {
- my ($role) = $entry->get_value( $self->role_field );
- if ($role) {
- push( @roles, $role );
- }
- else {
- next RESULT;
- }
+RESULT: foreach my $entry ( $rolesearch->entries ) {
+ push( @roles, $entry->get_value( $self->role_field ) );
}
return @roles;
}