Re: Closing DB handler with PerlCleanupHandler

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

On Wed, 10 Nov 2004, Batara Kesuma wrote:

[...]
>
> ## httpd.conf
> <FilesMatch "\.pl$">
>  SetHandler perl-script
>  PerlResponseHandler ModPerl::Registry
>  PerlOptions +ParseHeaders
>  PerlCleanupHandler MyApache::Cleanup
>  Options +ExecCGI
> </FilesMatch>
>
>
> ## MyApache::Cleanup.pm
> package MyApache::Cleanup;
> use strict;
> sub handler {
>    my ($r) = @_;
>    our $dbh;
>    if ($dbh) {
>        print STDERR "Got ya!!";
>        $dbh->disconnect();
>    }
>    return 200;
> }
> 1;
>
> I can't get $dbh from module that is called by PerlCleanupHandler. $dbh
> is created by scripts in ModPerl::Registry. How can I disconnect 'our
> $dbh' created by scripts within ModPerl::Registry in PerlCleanupHandler?

BTW, our() has a package scope and thus you are referring to different $dbh here 
IMHO.

Regards,

- Timour

        -- 
        Timour Ezeev
Pivotal Dynamics
timour@xxxxxxxxxxxxxxx.xxx
V: 305.406.9904
F: 305.406.9689

-- 
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