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;
  
  
  

Reply via email to