use overload ();
use Object::Signature ();
-our $VERSION = "0.05";
+our $VERSION = "0.09";
my @session_data_accessors; # used in delete_session
BEGIN {
# delete the session data
if ( my $sid = $c->sessionid ) {
$c->delete_session_data("${_}:${sid}") for qw/session expires flash/;
-
- $c->delete_session_id;
+ $c->delete_session_id($sid);
}
# reset the values in the context object
if ( defined( my $sid = $c->get_session_id ) ) {
if ( $c->validate_session_id($sid) ) {
- $c->_sessionid( $sid );
+ # temporarily set the inner key, so that validation will work
+ $c->_sessionid($sid);
return $sid;
} else {
my $err = "Tried to set invalid session ID '$sid'";