fix crash bug after restart with active session.

diff --git a/Changes b/Changes
index 75553f7..4a7c50a 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,7 @@
 Revision history for Perl extension Catalyst::Plugin::Session::FastMmap.
 
+0.05  Tue Mar 08 12:39:00 2005
+        - fix bug with old sessions after server restart.
 0.04  Wed Feb 16 22:00:00 2005
         - added tempdir support (Marcus Ramberg)
 

diff --git a/FastMmap.pm b/FastMmap.pm
index 5b5e460..777e32a 100644 (file)
--- a/FastMmap.pm
+++ b/FastMmap.pm
@@ -9,7 +9,7 @@ use URI;
 use URI::Find;
 use File::Temp 'tempdir';
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 __PACKAGE__->mk_classdata('_session');
 __PACKAGE__->mk_accessors('sessionid');
@@ -83,7 +83,8 @@ sub session {
     my $c = shift;
     return $c->{session} if $c->{session};
     my $sid = $c->sessionid;
-    if ( $sid && ( $c->{session} = $c->_session->get($sid) ) ) {
+    if ( $sid && $c->_session && 
+         ( $c->{session} = $c->_session->get($sid) ) ) {
         $c->log->debug(qq/Found session "$sid"/) if $c->debug;
         return $c->{session};
     }
@@ -149,6 +150,7 @@ L<Catalyst>.
 =head1 AUTHOR
 
 Sebastian Riedel, C<sri@cpan.org>
+Marcus Ramberg C<mramberg@cpan.org>
 
 =head1 COPYRIGHT