Releng for auth 0.09

diff --git a/Changes b/Changes
index 551e303..b3af029 100644 (file)
--- 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 (file)
--- 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 ) );