richter 2005/02/27 12:22:01
Modified: . Changes.pod Embperl.pm TODO
test/cmp Execute.htm
Log:
fix when called from Registry script
Revision Changes Path
1.264 +3 -2 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.263
retrieving revision 1.264
diff -u -r1.263 -r1.264
--- Changes.pod 27 Feb 2005 20:05:47 -0000 1.263
+++ Changes.pod 27 Feb 2005 20:22:00 -0000 1.264
@@ -5,7 +5,7 @@
up on the error page. Reported by Dirk Melchers.
- Report line number and file name in unstructures jump error messages.
Requested by Michael Smith.
- - Fix sigsegv under solaris cause by NULL point in debug output.
+ - Fixed sigsegv under solaris cause by NULL point in debug output.
- Applied patches from Angus Lees to make Embperl compile and test on
64Bit machines and avoid some compiler warnings.
- Add pod for embpmsgid.pl from Angus Lees.
@@ -26,7 +26,8 @@
- Reimplemented SetupSession, CleanupSession and SetSessionCookie
which can be used to access Embperl session data from outside,
for example from mod_perl Authentication handler.
-
+ - Fixed problem with undefined $req_rec when Embperl::Execute
+ is called from a registry script. Reported by Martin Moss.
=head1 2.0rc2 21. November 2004
1.198 +2 -0 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.197
retrieving revision 1.198
diff -u -r1.197 -r1.198
--- Embperl.pm 27 Feb 2005 20:05:47 -0000 1.197
+++ Embperl.pm 27 Feb 2005 20:22:00 -0000 1.198
@@ -107,6 +107,8 @@
# when called inside a Embperl Request, Execute the component only
return Embperl::Req::ExecuteComponent ($_ep_param, @_) if ($req) ;
+ local $req_rec = Apache -> request if ($Embperl::modperl) ;
+
my $rc ;
if (!ref $_ep_param)
{
1.132 +0 -2 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.131
retrieving revision 1.132
diff -u -r1.131 -r1.132
--- TODO 25 Feb 2005 08:06:21 -0000 1.131
+++ TODO 27 Feb 2005 20:22:00 -0000 1.132
@@ -17,8 +17,6 @@
- EmbperlObject and ErrorDocument [Robert Noris 24.2.05]
-- $req_rec setting when call under Registry [Martin Moss 22.3.05]
-
TODO for Embperl 2.1 and later
1.8 +2 -2 embperl/test/cmp/Execute.htm
Index: Execute.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/Execute.htm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- Execute.htm 25 Feb 2005 08:06:22 -0000 1.7
+++ Execute.htm 27 Feb 2005 20:22:00 -0000 1.8
@@ -122,10 +122,10 @@
$_[1] = <undef> <br>
^\$rec_rec = Apache(::RequestRec)?=SCALAR\(0x
-^\$\$rec_rec = \d+<br>
+^\$\$rec_rec = -?\d+<br>
^Apache->request = Apache(::RequestRec)?=SCALAR\(0x
-^\$\{Apache->request\} = \d+<br>
+^\$\{Apache->request\} = -?\d+<br>
^\${Apache->request} = \$\$req_rec \? yes
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
