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;
