From ba55bd341e99c674619ac6295526038b5770fe3e Mon Sep 17 00:00:00 2001
From: Matthew Somerville <matthew@mysociety.org>
Date: Wed, 29 Jun 2011 10:46:34 +0100
Subject: Get cookie expiry to work, and correct IDs on checkboxes.

---
 perllib/Catalyst/Plugin/Session/State/Cookie.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perllib/Catalyst/Plugin/Session')

diff --git a/perllib/Catalyst/Plugin/Session/State/Cookie.pm b/perllib/Catalyst/Plugin/Session/State/Cookie.pm
index 7ffc77f1f..c4b61123b 100644
--- a/perllib/Catalyst/Plugin/Session/State/Cookie.pm
+++ b/perllib/Catalyst/Plugin/Session/State/Cookie.pm
@@ -127,6 +127,8 @@ sub set_session_cookie_expire {
     else {
         delete $c->session->{__cookie_expires};
     }
+    # Force the cookie to be regenerated
+    $c->set_session_id( $c->sessionid );
     return 1;
 }
 
-- 
cgit v1.2.3