use strict;
use warnings;
-our $VERSION = '0.1000';
+our $VERSION = '0.1002';
use Catalyst::Authentication::Store::LDAP::User;
use Net::LDAP;
}
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;
}