From: Yuval Kogman <nothingmuch@woobling.org>
Date: Tue, 1 Aug 2006 08:07:41 +0000 (+0000)
Subject: Releng for auth 0.09
X-Git-Tag: v0.09~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=276b6b76eedfe724c106040cb8e4d7d3f9faf180;p=catagits%2FCatalyst-Plugin-Authentication.git

Releng for auth 0.09
---

diff --git a/Changes b/Changes
index 551e303..b3af029 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension Catalyst::Plugin::Authentication
 
+0.09
+        - be a bit more pedantic about checking values for definedness before
+          invoking methods on them
+
 0.08
         - factor test applications out to files due to changes in Catalyst::Test
         - don't load session at prepare time unless necessary
diff --git a/lib/Catalyst/Plugin/Authentication.pm b/lib/Catalyst/Plugin/Authentication.pm
index 0052f60..433c22b 100644
--- a/lib/Catalyst/Plugin/Authentication.pm
+++ b/lib/Catalyst/Plugin/Authentication.pm
@@ -22,7 +22,7 @@ use Class::Inspector;
 #	constant->import(have_want => eval { require Want });
 #}
 
-our $VERSION = "0.08";
+our $VERSION = "0.09";
 
 sub set_authenticated {
     my ( $c, $user ) = @_;
@@ -116,6 +116,7 @@ sub auth_restore_user {
     return unless defined($frozen_user);
 
     $store_name  ||= $c->session->{__user_store};
+    return unless $store_name; # FIXME die unless? This is an internal inconsistency
 
     my $store = $c->get_auth_store($store_name);
     $c->_user( my $user = $store->from_session( $c, $frozen_user ) );