On Wed, 13 Aug 2003, David Wheeler wrote:
> On Wednesday, August 13, 2003, at 12:32 PM, David Wheeler wrote:
>
> > I'm attempting to isolate the problem now.
>
What version of DBD::Pg are you using for this test? Version of mod_perl?
> The code that's causing the hangup looks like this:
>
> our $dbh;
> sub _connect {
> eval {
> warn "$$: Checking for DB handle.\n";
> unless ($dbh && $dbh->ping) {
> warn "$$: No handle, connecting.\n";
> $dbh = DBI->connect(join(':', 'DBI', DBD_TYPE, DSN_STRING),
> DBI_USER, DBI_PASS, $ATTR);
> }
> };
> die Bric::Util::Fault::Exception::DA->new(
> { msg => "Unable to connect to database", payload => $@ }) if
> $@;
> print STDERR "\n";
> }
>
Does this happen on every second request to httpd, or is it more
intermittent? Can you get it to happen on every second request when
running httpd under -X?
Have you tried DBI->trace()? I would like to see a trace(9) for the hits
that cause the problem.
-R
