Author: gozer Date: Sun Jan 2 19:57:59 2005 New Revision: 123937 URL: http://svn.apache.org/viewcvs?view=rev&rev=123937 Log: Perl, <Perl> and PerlPostConfigRequires were leaking some memory at startup. Use parms->temp_pool instead of parms->pool for temporary memory allocations.
Modified: perl/modperl/trunk/Changes perl/modperl/trunk/src/modules/perl/modperl_cmd.c Modified: perl/modperl/trunk/Changes Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?view=diff&rev=123937&p1=perl/modperl/trunk/Changes&r1=123936&p2=perl/modperl/trunk/Changes&r2=123937 ============================================================================== --- perl/modperl/trunk/Changes (original) +++ perl/modperl/trunk/Changes Sun Jan 2 19:57:59 2005 @@ -12,6 +12,10 @@ =item 1.99_20-dev +Perl, <Perl> and PerlPostConfigRequires were leaking some memory at +startup. Use parms->temp_pool instead of parms->pool for temporary +memory allocations. [Gozer] + deal with a situation where an object is used to construct another object, but it's then auto-DESTROYed by perl rendering the object that used it corrupted. the solution is to make the newly created objects Modified: perl/modperl/trunk/src/modules/perl/modperl_cmd.c Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/src/modules/perl/modperl_cmd.c?view=diff&rev=123937&p1=perl/modperl/trunk/src/modules/perl/modperl_cmd.c&r1=123936&p2=perl/modperl/trunk/src/modules/perl/modperl_cmd.c&r2=123937 ============================================================================== --- perl/modperl/trunk/src/modules/perl/modperl_cmd.c (original) +++ perl/modperl/trunk/src/modules/perl/modperl_cmd.c Sun Jan 2 19:57:59 2005 @@ -243,7 +243,7 @@ MP_CMD_SRV_DECLARE(post_config_requires) { - apr_pool_t *p = parms->pool; + apr_pool_t *p = parms->temp_pool; apr_finfo_t finfo; MP_dSCFG(parms->server); @@ -420,7 +420,7 @@ MP_CMD_SRV_DECLARE(perl) { - apr_pool_t *p = parms->pool; + apr_pool_t *p = parms->temp_pool; const char *endp = ap_strrchr_c(arg, '>'); const char *errmsg; char *code = ""; @@ -473,7 +473,7 @@ MP_CMD_SRV_DECLARE(perldo) { - apr_pool_t *p = parms->pool; + apr_pool_t *p = parms->temp_pool; server_rec *s = parms->server; apr_table_t *options; modperl_handler_t *handler = NULL;
