[Catalyst-commits] r13412 - in Catalyst-Plugin-Session-State-URI/trunk: . lib/Catalyst/Plugin/Session/State

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-07-19 20:11:37 +0100 (Mon, 19 Jul 2010)
New Revision: 13412

Modified:
   Catalyst-Plugin-Session-State-URI/trunk/Changes
   Catalyst-Plugin-Session-State-URI/trunk/lib/Catalyst/Plugin/Session/State/URI.pm
Log:
Fix RT#57620

Modified: Catalyst-Plugin-Session-State-URI/trunk/Changes
===================================================================
--- Catalyst-Plugin-Session-State-URI/trunk/Changes	2010-07-19 19:08:50 UTC (rev 13411)
+++ Catalyst-Plugin-Session-State-URI/trunk/Changes	2010-07-19 19:11:37 UTC (rev 13412)
@@ -4,6 +4,8 @@
         - Fix behaviour when debug is turned on by wrapping prepare_path
           rather than prepare_action (RT#56753).
         - Fix warning about test plugin inheriting from Catalyst::Component.
+        - Fix for loading the session ID with a cookie for some actions
+          and Session::State::URI for others (RT#57620)
 
 0.13    2009-10-16
         - Port to new session config key.

Modified: Catalyst-Plugin-Session-State-URI/trunk/lib/Catalyst/Plugin/Session/State/URI.pm
===================================================================
--- Catalyst-Plugin-Session-State-URI/trunk/lib/Catalyst/Plugin/Session/State/URI.pm	2010-07-19 19:08:50 UTC (rev 13411)
+++ Catalyst-Plugin-Session-State-URI/trunk/lib/Catalyst/Plugin/Session/State/URI.pm	2010-07-19 19:11:37 UTC (rev 13412)
@@ -322,6 +322,7 @@
 
         if ( my $sid = $c->request->param($param) ) {
             $c->_sessionid_from_uri($sid);
+            $c->_tried_loading_session_id(0);
             $c->log->debug(qq/Found sessionid "$sid" in query parameters/)
               if $c->debug;
         }
@@ -333,6 +334,7 @@
             $c->log->debug(qq/Found sessionid "$sid" in uri path/)
               if $c->debug;
             $c->_sessionid_from_uri($sid);
+            $c->_tried_loading_session_id(0);
         }
 
     }