richter 2005/09/04 21:09:24
Modified: . Changes.pod Embperl.pm
Log:
don't croak when Apache request record is not available
Revision Changes Path
1.288 +1 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.287
retrieving revision 1.288
diff -u -r1.287 -r1.288
--- Changes.pod 4 Sep 2005 13:41:04 -0000 1.287
+++ Changes.pod 5 Sep 2005 04:09:24 -0000 1.288
@@ -4,7 +4,7 @@
- Turn off Apache maintainer mode symbols, so it works with SuSE Apache
- Wiki
-
+ - Don't croak if Apache request record is not available (e.g. during
startup)
=head4 2.0rc6
1.206 +11 -8 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.205
retrieving revision 1.206
diff -u -r1.205 -r1.206
--- Embperl.pm 13 Aug 2005 19:43:04 -0000 1.205
+++ Embperl.pm 5 Sep 2005 04:09:24 -0000 1.206
@@ -133,14 +133,17 @@
local $req_rec ;
if ($modperl && !exists ($_ep_param -> {req_rec}))
{
- if ($modperlapi < 2)
+ eval
{
- $req_rec = Apache -> request ;
- }
- else
- {
- $req_rec = Apache2::RequestUtil -> request ;
- }
+ if ($modperlapi < 2)
+ {
+ $req_rec = Apache -> request ;
+ }
+ else
+ {
+ $req_rec = Apache2::RequestUtil -> request ;
+ }
+ } ;
}
elsif (exists ($_ep_param -> {req_rec}) && defined ($_ep_param ->
{req_rec}))
{
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
