cvsuser 03/06/20 10:19:03
Modified: App-Context/lib/App/Session Cookie.pm
Log:
sync
Revision Changes Path
1.6 +5 -3 p5ee/App-Context/lib/App/Session/Cookie.pm
Index: Cookie.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Context/lib/App/Session/Cookie.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- Cookie.pm 22 Mar 2003 04:04:35 -0000 1.5
+++ Cookie.pm 20 Jun 2003 17:19:03 -0000 1.6
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Cookie.pm,v 1.5 2003/03/22 04:04:35 spadkins Exp $
+## $Id: Cookie.pm,v 1.6 2003/06/20 17:19:03 spadkins Exp $
#############################################################################
package App::Session::Cookie;
@@ -315,10 +315,12 @@
my ($self, $args) = @_;
my ($cgi, $sessiontext, $store, $length, $pad);
- $self->{context} = $args->{context};
+ my $context = $self->{context} = $args->{context};
$store = {};
$cgi = $args->{cgi} if (defined $args);
- $cgi = $self->{context}->request()->{cgi} if (!defined $cgi);
+ if (! defined $cgi && $context->can("request")) {
+ $cgi = $context->request()->{cgi};
+ }
if (defined $cgi) {
$sessiontext = $cgi->cookie("app_sessiondata");
if ($sessiontext) {
