Hi all,
Nuff said!
P.S.
I believe its a side effect, but you need to enable
PerlOptions +GlobalRequest or you get errors in the on_destory() method.
--- Apache.pm Tue Dec 14 10:31:39 2004
+++ Apache.pm.new Sun Aug 21 08:18:22 2005
@@ -108,8 +108,10 @@
use vars qw($VERSION @ISA);
$VERSION = "1.0";
@ISA = qw(DBI::ProfileDumper);
+
+use constant MP2 => $ENV{MOD_PERL_API_VERSION} == 2 ? 1 : 0;
+
use DBI::ProfileDumper;
-use Apache;
use File::Spec;
# Override flush_to_disk() to setup File just in time for output.
@@ -120,7 +122,16 @@
my $self = shift;
# setup File per process
- my $path = Apache->server_root_relative("logs/");
+ my $path;
+ if (MP2) {
+ require Apache2::RequestUtil;
+ require Apache2::ServerUtil;
+ $path =
Apache2::ServerUtil::server_root_relative(Apache2::RequestUtil->request()->pool,
"logs/")
+ }
+ else {
+ require Apache;
+ $path = Apache->server_root_relative("logs/");
+ }
my $old_file = $self->{File};
$self->{File} = File::Spec->catfile($path, "$old_file.$$");
--
END
------------------------------------------------------------
What doesn't kill us can only make us stronger.
Nothing is impossible.
Philip M. Gollucci ([EMAIL PROTECTED]) 301.254.5198
Consultant / http://p6m7g8.net/Resume/
Senior Developer / Liquidity Services, Inc.
http://www.liquidityservicesinc.com
http://www.liquidation.com
http://www.uksurplus.com
http://www.govliquidation.com
http://www.gowholesale.com
