Re: Closing DB handler with PerlCleanupHandler

[prev] [thread] [next] [Date index for 2004/11/10]

Hi Stas,

> 1) use Apache::DBI
> 
> 2) if not, refer to:
> http://perl.apache.org/docs/2.0/user/handlers/http.html#PerlCleanupHandler
> http://perl.apache.org/docs/2.0/user/coding/coding.html#Getting_the_C__r__Object


Thank you for the answer. I tried to use Apache::DBI with
dbi_connect_method => 'connect'. But I have a problem here, because I
use 'our' on $dbh so other functions can use it. It looks like:

---
sub show_name {
  our $dbh;
  my $sth = $dbh->prepare("SELECT name FROM member WHERE id=?");
  $sth->execute(1);
  ...
}

## MAIN
my $mn = MyPackage::Main::->new();
our $dbh = $mn->load_dbh();
---

So even if I use dbi_connect_method => 'connect', the connection to the
DB will be alive until the child die. I want to make the connection not
persistent. The only way I know now is to unload Apache::DBI, then call
$dbh->disconnect() at the end of every scripts. Is there any other more
efficient way to do this with little change to the scripts themselves?


        -- 
        Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html