stas 2004/09/29 20:39:25
Modified: . Changes src/modules/perl mod_perl.c modperl_filter.c Log: tag the custom pools created by mod_perl for easier pools debug Revision Changes Path 1.505 +3 -0 modperl-2.0/Changes Index: Changes =================================================================== RCS file: /home/cvs/modperl-2.0/Changes,v retrieving revision 1.504 retrieving revision 1.505 diff -u -u -r1.504 -r1.505 --- Changes 30 Sep 2004 03:30:29 -0000 1.504 +++ Changes 30 Sep 2004 03:39:24 -0000 1.505 @@ -12,6 +12,9 @@ =item 1.99_17-dev +tag the custom pools created by mod_perl for easier pools debug [Joe +Orton] + fix a bug in non-ithreaded-perl implementation where the cached compiled CODE refs of httpd.conf-inlined one-liner handlers like: PerlFixupHandler 'sub { use Apache::Const qw(DECLINED); DECLINED }' 1.223 +1 -0 modperl-2.0/src/modules/perl/mod_perl.c Index: mod_perl.c =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v retrieving revision 1.222 retrieving revision 1.223 diff -u -u -r1.222 -r1.223 --- mod_perl.c 21 Sep 2004 21:35:30 -0000 1.222 +++ mod_perl.c 30 Sep 2004 03:39:24 -0000 1.223 @@ -539,6 +539,7 @@ MP_init_status = 1; /* now starting */ apr_pool_create(&server_pool, pconf); + apr_pool_tag(server_pool, "mod_perl server pool"); modperl_sys_init(); apr_pool_cleanup_register(pconf, NULL, 1.99 +5 -1 modperl-2.0/src/modules/perl/modperl_filter.c Index: modperl_filter.c =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_filter.c,v retrieving revision 1.98 retrieving revision 1.99 diff -u -u -r1.98 -r1.99 --- modperl_filter.c 9 Sep 2004 15:17:20 -0000 1.98 +++ modperl_filter.c 30 Sep 2004 03:39:24 -0000 1.99 @@ -317,7 +317,11 @@ return NULL; } filter = (modperl_filter_t *)apr_pcalloc(temp_pool, sizeof(*filter)); - + +#ifdef MP_DEBUG + apr_pool_tag(temp_pool, "mod_perl temp filter"); +#endif + filter->temp_pool = temp_pool; filter->mode = mode; filter->f = f;