[Catalyst-commits] r12300 - in
Catalyst-Authentication-Store-LDAP/trunk: .
lib/Catalyst/Authentication/Store/LDAP
t0m at dev.catalyst.perl.org
t0m at dev.catalyst.perl.org
Thu Dec 10 17:25:45 GMT 2009
Author: t0m
Date: 2009-12-10 17:25:44 +0000 (Thu, 10 Dec 2009)
New Revision: 12300
Modified:
Catalyst-Authentication-Store-LDAP/trunk/
Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/User.pm
Log:
r27888 at omni (orig r10886): t0m | 2009-07-15 11:04:29 +0100
Clean up
Property changes on: Catalyst-Authentication-Store-LDAP/trunk
___________________________________________________________________
Name: svk:merge
- 4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Authentication-Store-LDAP/branches/better_model_integration:10040
+ 4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Authentication-Store-LDAP/branches/better_model_integration:10886
Modified: Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/User.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/User.pm 2009-12-10 17:25:43 UTC (rev 12299)
+++ Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/User.pm 2009-12-10 17:25:44 UTC (rev 12300)
@@ -147,7 +147,9 @@
$self->roles($ldap);
}
# Stash a closure which can be used to retrieve the connection in the users context later.
- $self->_ldap_connection( sub { $self->store->ldap_bind( undef, $self->ldap_entry->dn, $password ) } );
+ $self->_ldap_connection( sub {
+ $self->store->ldap_bind( undef, $self->ldap_entry->dn, $password )
+ });
return 1;
}
else {
More information about the Catalyst-commits
mailing list