[Catalyst-commits] r13649 - Catalyst-Plugin-Session/0.00/trunk/lib/Catalyst/Plugin

t0m at dev.catalyst.perl.org t0m at dev.catalyst.perl.org
Fri Oct 8 14:26:03 GMT 2010


Author: t0m
Date: 2010-10-08 15:26:03 +0100 (Fri, 08 Oct 2010)
New Revision: 13649

Modified:
   Catalyst-Plugin-Session/0.00/trunk/lib/Catalyst/Plugin/Session.pm
Log:
Back out, breaks shit

Modified: Catalyst-Plugin-Session/0.00/trunk/lib/Catalyst/Plugin/Session.pm
===================================================================
--- Catalyst-Plugin-Session/0.00/trunk/lib/Catalyst/Plugin/Session.pm	2010-10-08 14:19:05 UTC (rev 13648)
+++ Catalyst-Plugin-Session/0.00/trunk/lib/Catalyst/Plugin/Session.pm	2010-10-08 14:26:03 UTC (rev 13649)
@@ -13,7 +13,7 @@
 
 use namespace::clean -except => 'meta';
 
-our $VERSION = '0.31';
+our $VERSION = '0.30';
 $VERSION = eval $VERSION;
 
 my @session_data_accessors; # used in delete_session
@@ -499,7 +499,8 @@
 
     my $now = time;
 
-    my $session_data = {
+    return $c->_session(
+        {
             __created => $now,
             __updated => $now,
 
@@ -513,12 +514,8 @@
                 ? ( __user_agent => $c->request->user_agent||'' )
                 : ()
             ),
-    };
-
-    # Only save this session if data is added by the application
-    $c->_session_data_sig( Object::Signature::signature($session_data) );
-
-    return $c->_session($session_data);
+        }
+    );
 }
 
 sub generate_session_id {




More information about the Catalyst-commits mailing list