richter 2002/09/18 02:33:27
Modified: . Tag: Embperl2c Changes.pod epinit.c
Log:
- Fix problem when session id is given to Embperl, but session management
was not setup
Revision Changes Path
No revision
No revision
1.129.4.91 +2 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.90
retrieving revision 1.129.4.91
diff -u -r1.129.4.90 -r1.129.4.91
--- Changes.pod 11 Sep 2002 09:17:18 -0000 1.129.4.90
+++ Changes.pod 18 Sep 2002 09:33:26 -0000 1.129.4.91
@@ -19,6 +19,8 @@
- Embperl::Form::Validate JavaScript code can now handle fieldnames that
aren't correct JavaScript identifier.
- Fix SIGSEGV when printing to Embperl::LOG before Embperl log file is setup.
+ - Fix problem when session id is given to Embperl, but session management
+ was not setup
=head1 2.0b8 (BETA) 25. Juni 2002
1.1.2.59 +3 -3 embperl/Attic/epinit.c
Index: epinit.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epinit.c,v
retrieving revision 1.1.2.58
retrieving revision 1.1.2.59
diff -u -r1.1.2.58 -r1.1.2.59
--- epinit.c 1 Jul 2002 06:57:12 -0000 1.1.2.58
+++ epinit.c 18 Sep 2002 09:33:26 -0000 1.1.2.59
@@ -1288,7 +1288,7 @@
embperl_SetupFormData (r) ;
- if (r -> sSessionUserID)
+ if (r -> sSessionUserID && pApp -> pUserObj)
{
tainted = 0 ;
SPAGAIN;
@@ -1299,7 +1299,7 @@
perl_call_method ("setid", 0) ;
}
- if (r -> sSessionStateID)
+ if (r -> sSessionStateID && pApp -> pStateObj)
{
tainted = 0 ;
SPAGAIN;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
