[Catalyst-commits] r9818 - in Catalyst-Plugin-Session-Store-File/trunk: . lib/Catalyst/Plugin/Session/Store

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-04-24 10:22:49 +0100 (Fri, 24 Apr 2009)
New Revision: 9818

Modified:
   Catalyst-Plugin-Session-Store-File/trunk/Changes
   Catalyst-Plugin-Session-Store-File/trunk/lib/Catalyst/Plugin/Session/Store/File.pm
Log:
Small patch to use class name, not instance name


Modified: Catalyst-Plugin-Session-Store-File/trunk/Changes
===================================================================
--- Catalyst-Plugin-Session-Store-File/trunk/Changes	2009-04-24 04:44:13 UTC (rev 9817)
+++ Catalyst-Plugin-Session-Store-File/trunk/Changes	2009-04-24 09:22:49 UTC (rev 9818)
@@ -1,5 +1,8 @@
 Revision history for Perl extension Catalyst::Plugin::Session::Store::File.
 
+    - Create temp directory from class name, not stringified instance.
+      This stops you losing all your sessions when your app restarts. (xinming)
+
 0.14  18 Apr 2009
     - switch to MRO Compat
     - defer creation of cache store until first time it is needed.

Modified: Catalyst-Plugin-Session-Store-File/trunk/lib/Catalyst/Plugin/Session/Store/File.pm
===================================================================
--- Catalyst-Plugin-Session-Store-File/trunk/lib/Catalyst/Plugin/Session/Store/File.pm	2009-04-24 04:44:13 UTC (rev 9817)
+++ Catalyst-Plugin-Session-Store-File/trunk/lib/Catalyst/Plugin/Session/Store/File.pm	2009-04-24 09:22:49 UTC (rev 9818)
@@ -90,7 +90,7 @@
 
     $c->config->{session}{namespace} ||= '';
     my $root = $c->config->{session}{storage} ||=
-      File::Spec->catdir( Catalyst::Utils::class2tempdir($c),
+      File::Spec->catdir( Catalyst::Utils::class2tempdir(ref $c),
         "session", "data", );
 
     $root = $c->path_to($root) if $c->config->{session}{relative};