[Catalyst-commits] r10889 -
Catalyst-Authentication-Store-LDAP/branches/better_model_integration/lib/Catalyst/Authentication/Store/LDAP
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Wed Jul 15 15:47:25 GMT 2009
Author: t0m
Date: 2009-07-15 15:47:25 +0000 (Wed, 15 Jul 2009)
New Revision: 10889
Modified:
Catalyst-Authentication-Store-LDAP/branches/better_model_integration/lib/Catalyst/Authentication/Store/LDAP/User.pm
Log:
I don't actually need any of the extra lines, calling ->ldap_bind on the store I already have hands me the right thing back or throws
Modified: Catalyst-Authentication-Store-LDAP/branches/better_model_integration/lib/Catalyst/Authentication/Store/LDAP/User.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/branches/better_model_integration/lib/Catalyst/Authentication/Store/LDAP/User.pm 2009-07-15 10:16:11 UTC (rev 10888)
+++ Catalyst-Authentication-Store-LDAP/branches/better_model_integration/lib/Catalyst/Authentication/Store/LDAP/User.pm 2009-07-15 15:47:25 UTC (rev 10889)
@@ -241,11 +241,8 @@
sub ldap_connection {
my $self = shift;
- my $msg = $self->store->ldap_bind( undef, $self->ldap_entry->dn,
+ $self->store->ldap_bind( undef, $self->ldap_entry->dn,
$self->_ldap_connection_password->() );
- $msg->code && die("Error whilst re-binding as " . $self->ldap_entry->dn
- . " after auth: " . $msg->error . " (" . $msg->code . ")");
- return $self->store;
}
=head2 AUTOLOADed methods
More information about the Catalyst-commits
mailing list