From: Yuval Kogman <nothingmuch@woobling.org>
Date: Mon, 21 Nov 2005 22:53:33 +0000 (+0000)
Subject: Allow false values in $c->config->{authentication}{typekey}
X-Git-Tag: v0.03~21
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6f758b52c41f81819f15d2e4520c2d0e376d35ca;hp=19c14a204cf2c7a0793a4c5e5234d7c0971b2455;p=catagits%2FCatalyst-Authentication-Credential-HTTP-Proxy.git

Allow false values in $c->config->{authentication}{typekey}
---

diff --git a/lib/Catalyst/Plugin/Authentication/Credential/TypeKey.pm b/lib/Catalyst/Plugin/Authentication/Credential/TypeKey.pm
index a776633..9165678 100644
--- a/lib/Catalyst/Plugin/Authentication/Credential/TypeKey.pm
+++ b/lib/Catalyst/Plugin/Authentication/Credential/TypeKey.pm
@@ -27,8 +27,8 @@ sub setup {
 
         my $typekey = Authen::TypeKey->new;
 
-        for (qw/expires key_cache key_url token version/) {
-            $typekey->$_( $config->{$_} || next );
+        for (grep { exists $config->{$_} } qw/expires key_cache key_url token version/) {
+            $typekey->$_( $config->{$_} );
         }
 
         $typekey;