[Catalyst-commits] r13841 - in Catalyst-Authentication-Credential-HTTP/1.000/trunk: . lib/Catalyst/Authentication/Credential

[rjk at dev.catalyst.perl.org]

Author: rjk
Date: 2010-12-14 19:20:53 +0000 (Tue, 14 Dec 2010)
New Revision: 13841

Modified:
   Catalyst-Authentication-Credential-HTTP/1.000/trunk/Changes
   Catalyst-Authentication-Credential-HTTP/1.000/trunk/lib/Catalyst/Authentication/Credential/HTTP.pm
Log:
Call store_digest_authorization_nonce() instead of $c->cache->set()
 in authenticate_digest() (RT#63669)


Modified: Catalyst-Authentication-Credential-HTTP/1.000/trunk/Changes
===================================================================
--- Catalyst-Authentication-Credential-HTTP/1.000/trunk/Changes	2010-12-13 22:04:02 UTC (rev 13840)
+++ Catalyst-Authentication-Credential-HTTP/1.000/trunk/Changes	2010-12-14 19:20:53 UTC (rev 13841)
@@ -1,3 +1,5 @@
+   - Call store_digest_authorization_nonce() instead of $c->cache->set()
+     in authenticate_digest() (RT#63669) (rjk)
    - Make Test::Exception and Test::MockObject be listed as test_requires
      rather than requires (RT#54029)
    - Skip WWW::Mech tests unless WWW::Mech is a new enough version (RT#55303).

Modified: Catalyst-Authentication-Credential-HTTP/1.000/trunk/lib/Catalyst/Authentication/Credential/HTTP.pm
===================================================================
--- Catalyst-Authentication-Credential-HTTP/1.000/trunk/lib/Catalyst/Authentication/Credential/HTTP.pm	2010-12-13 22:04:02 UTC (rev 13840)
+++ Catalyst-Authentication-Credential-HTTP/1.000/trunk/lib/Catalyst/Authentication/Credential/HTTP.pm	2010-12-14 19:20:53 UTC (rev 13841)
@@ -183,8 +183,8 @@
                     $A2_digest );
             my $rq_digest = Digest::MD5::md5_hex($digest_in);
             $nonce->nonce_count($nonce_count);
-            $c->cache->set( __PACKAGE__ . '::opaque:' . $nonce->opaque,
-                $nonce );
+            my $key = __PACKAGE__ . '::opaque:' . $nonce->opaque;
+            $self->store_digest_authorization_nonce( $c, $key, $nonce );
             if ($rq_digest eq $res{response}) {
                 return $user_obj;
             }