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

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-04-24 14:32:08 +0100 (Fri, 24 Apr 2009)
New Revision: 9823

Modified:
   Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential/HTTP.pm
Log:
Also needed for digest.


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 13:30:54 UTC (rev 9822)
+++ Catalyst-Authentication-Credential-HTTP/1.000/branches/ntlm_support/lib/Catalyst/Authentication/Credential/HTTP.pm	2009-04-24 13:32:08 UTC (rev 9823)
@@ -64,7 +64,7 @@
     }
 
     # check if the configured store supports cleartext passwords
-    if ($type eq 'ntlm' && not $self->realm->store->user_supports(qw/password clear/)) {
+    if ( ($type eq 'ntlm' || $type eq 'digest') && not $self->realm->store->user_supports(qw/password clear/)) {
         Catalyst::Exception->throw(__PACKAGE__ . " used with unsupported store (needs to support cleartext passwords)");
     }