Hurrah! Its working now. Thank you!
Eric
> > When I try to retrieve this Class::DBI object from the Cleanup
> > Handler, the pnotes values are totally gone. However,
> regular scalers
> > that I've put in 'notes' are still there. Perhaps pnotes has (by
> > design) already been cleaned up prior to the
> PerlCleanupHandler stage?
>
> Right, here is the fix:
>
> Index: src/modules/perl/modperl_config.c
> ===================================================================
> RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_config.c,v
> retrieving revision 1.71
> diff -u -r1.71 modperl_config.c
> --- src/modules/perl/modperl_config.c 23 Oct 2003 18:34:51
> -0000 1.71
> +++ src/modules/perl/modperl_config.c 20 Dec 2003 02:46:41 -0000
> @@ -288,12 +288,12 @@
> apr_status_t retval;
> MP_dRCFG;
>
> + retval = modperl_callback_per_dir(MP_CLEANUP_HANDLER, r,
> + MP_HOOK_RUN_ALL);
> +
> if (rcfg->pnotes) {
> SvREFCNT_dec(rcfg->pnotes);
> rcfg->pnotes = Nullhv;
> }
> -
> - retval = modperl_callback_per_dir(MP_CLEANUP_HANDLER, r,
> MP_HOOK_RUN_ALL);
>
> /* undo changes to %ENV caused by +SetupEnv, perl-script, or
> * $r->subprocess_env, so the values won't persist */
--
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
