blob: 74a8fadb21b8a4532c31871cc30e217bd0be1c13 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
<Perl>
#define options:
#interactive debugger: httpd -X -DPERLDB
#DProf: httpd -X -DPERLDPROF
#SmallProf: httpd -X -DPERLSMALLPROF
my @dbs = qw(DB DProf SmallProf);
my $init_db = 0;
my $handler = "";
for (@dbs) {
my $define = "PERL\U$_";
next unless $init_db = Apache->define($define);
$handler = "Apache::$_";
last;
}
if ($init_db) {
require Apache::DB;
Apache::DB::->init;
eval "require $handler;";
die $@ if $@;
print "Apache::DB configured with $handler\n";
push @{ $Location{'/'}->{PerlFixupHandler} }, $handler;
}
</Perl>
|