projects
/
catagits/Catalyst-Plugin-Session.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
gphat's undef patch
[catagits/Catalyst-Plugin-Session.git]
/
lib
/
Catalyst
/
Plugin
/
Session.pm
diff --git
a/lib/Catalyst/Plugin/Session.pm
b/lib/Catalyst/Plugin/Session.pm
index
67934d5
..
f54cd60
100644
(file)
--- a/
lib/Catalyst/Plugin/Session.pm
+++ b/
lib/Catalyst/Plugin/Session.pm
@@
-245,6
+245,10
@@
sub sessionid {
my $c = shift;
if (@_) {
+ if($c->_sessionid()) {
+ $c->log->warn('Session ID already set, ignoring.');
+ return $c->_sessionid();
+ }
if ( $c->validate_session_id( my $sid = shift ) ) {
$c->_sessionid($sid);
return unless defined wantarray;