Starting httpd: [Mon Nov 01 22:37:13 2004] [error] Can't locate object method "server_root_relative" via package "Apache::Server" at /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi/Apache/DProf.pm line 30.!Compilation failed in require at (eval 2) line 3.!
[Mon Nov 01 22:37:13 2004] [error] Can't load Perl module Apache::DProf for server localhost:0, exiting...!

##</code><code>##

package Apache::DProf;

use strict;
use Apache::DB ();
use File::Path ();

{
    no strict;
    $VERSION = '0.04';
}

# Need to determine if we are in a mod_perl 1.x or 2.x environment
# and load the appropriate modules
BEGIN {
        use constant MP2 => eval { require mod_perl; $mod_perl::VERSION > 1.99 };
        die "mod_perl is required to run this module: $@" if $@;

        if (MP2) {
                require Apache2;
                require Apache::RequestRec;
                require Apache::ServerUtil;
        }
}


# Adjust to handle mp1 and mp2 differently
my $prof_path;
if (MP2) {
    my $s = Apache->server;
    $prof_path = $s->server_root_relative( $ENV{APACHE_DPROF_PATH} ||
                                           "logs/dprof");
}
else {
    $prof_path = Apache->server_root_relative($ENV{APACHE_DPROF_PATH} ||
                                           "logs/dprof");
}