[Catalyst-commits] r9822 - Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Fri Apr 24 13:30:55 GMT 2009


Author: t0m
Date: 2009-04-24 14:30:54 +0100 (Fri, 24 Apr 2009)
New Revision: 9822

Modified:
   Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential/HTTP.pm
Log:
You're calling the method named by the password field config key, not the password_field method itself


Modified: Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential/HTTP.pm
===================================================================
--- Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential/HTTP.pm	2009-04-24 12:52:46 UTC (rev 9821)
+++ Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential/HTTP.pm	2009-04-24 13:30:54 UTC (rev 9822)
@@ -269,8 +269,8 @@
                 }
 
                 my $user_obj = $realm->find_user( { $self->username_field => $t3_username }, $c);
-                my $lm_hash = lm_hash($user_obj->password_field);
-                my $nt_hash = nt_hash($user_obj->password_field);
+                my $lm_hash = lm_hash($user_obj->$password_field());
+                my $nt_hash = nt_hash($user_obj->$password_field());
                 
                 if ($user_obj && $lm_hash eq $t3_lm_resp && $nt_hash eq $t3_nt_resp) {
                     return $user_obj;




More information about the Catalyst-commits mailing list