[Catalyst-commits] r12303 - in Catalyst-Authentication-Store-LDAP/trunk: . lib/Catalyst/Authentication/Store/LDAP

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-12-10 17:25:51 +0000 (Thu, 10 Dec 2009)
New Revision: 12303

Modified:
   Catalyst-Authentication-Store-LDAP/trunk/
   Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/User.pm
Log:
 r27891 at omni (orig r10889):  t0m | 2009-07-15 16:47:25 +0100
 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



Property changes on: Catalyst-Authentication-Store-LDAP/trunk
___________________________________________________________________
Name: svk:merge
   - 4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Authentication-Store-LDAP/branches/better_model_integration:10888
   + 4ad37cd2-5fec-0310-835f-b3785c72a374:/Catalyst-Authentication-Store-LDAP/branches/better_model_integration:10889

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:49 UTC (rev 12302)
+++ Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/User.pm	2009-12-10 17:25:51 UTC (rev 12303)
@@ -243,11 +243,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