[Catalyst-commits] r8601 - in trunk/Catalyst-Plugin-Session-Store-DBIC: . lib/Catalyst/Plugin/Session/Store

[dwc at dev.catalyst.perl.org]

Author: dwc
Date: 2008-11-16 19:23:49 +0000 (Sun, 16 Nov 2008)
New Revision: 8601

Modified:
   trunk/Catalyst-Plugin-Session-Store-DBIC/Changes
   trunk/Catalyst-Plugin-Session-Store-DBIC/lib/Catalyst/Plugin/Session/Store/DBIC.pm
Log:
Workaround possible errors with Storable::thaw and empty strings

Modified: trunk/Catalyst-Plugin-Session-Store-DBIC/Changes
===================================================================
--- trunk/Catalyst-Plugin-Session-Store-DBIC/Changes	2008-11-15 23:37:02 UTC (rev 8600)
+++ trunk/Catalyst-Plugin-Session-Store-DBIC/Changes	2008-11-16 19:23:49 UTC (rev 8601)
@@ -1,5 +1,9 @@
 Revision history for Catalyst-Plugin-Session-Store-DBIC
 
+0.08
+        - Workaround possible errors with Storable::thaw and empty
+          strings
+
 0.07  Wed Sep 24 17:08:34 EDT 2008
         - Code was silently truncating storage to MySQL, rendering the
           session unreadable. Patched to check DBIx::Class size from

Modified: trunk/Catalyst-Plugin-Session-Store-DBIC/lib/Catalyst/Plugin/Session/Store/DBIC.pm
===================================================================
--- trunk/Catalyst-Plugin-Session-Store-DBIC/lib/Catalyst/Plugin/Session/Store/DBIC.pm	2008-11-15 23:37:02 UTC (rev 8600)
+++ trunk/Catalyst-Plugin-Session-Store-DBIC/lib/Catalyst/Plugin/Session/Store/DBIC.pm	2008-11-16 19:23:49 UTC (rev 8601)
@@ -9,7 +9,7 @@
 use NEXT;
 use Storable ();
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 
 =head1 NAME
 
@@ -184,7 +184,7 @@
         @args = map { MIME::Base64::encode(Storable::nfreeze($_ || '')) } @args;
         $accessor = sub {
             my $value = shift->$type($key)->$field(@_);
-            return unless defined $value;
+            return unless $value;
             return Storable::thaw(MIME::Base64::decode($value));
         };
     }