[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