I've run into this before. It's a bug in v1.07 of Apache::DBI
Open up the Apache/DBI.pm source file (on one of my test systems it's
installed in /usr/lib/perl5/site_perl/5.8.8/Apache/DBI.pm) aind the
following block of code:
/ if (!$Rollback{$Idx}) {
my $r;
if (MP2) {
$r = Apache2::RequestUtil->request;
}
elsif (Apache->can('push_handlers')) {
$r = 'Apache';
}
/
The problem with this is that if you're calling this from startup.pl
you're not actually in a request at that point (as someone already
mentioned) so without the eval there the script dies.
Fix it by wrapping the "/$r = Apache2::RequestUtil->request;/" part in
an eval so it looks like this: /eval { $r = Apache2::RequestUtil->request;}