You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/03/27 23:10:36 UTC
cvs commit: modperl-2.0/src/modules/perl modperl_interp.c
stas 2003/03/27 14:10:35
Modified: src/modules/perl modperl_interp.c
Log:
move the code after the declaration. the other way around doesn't work
everywhere
Revision Changes Path
1.57 +2 -3 modperl-2.0/src/modules/perl/modperl_interp.c
Index: modperl_interp.c
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_interp.c,v
retrieving revision 1.56
retrieving revision 1.57
diff -u -r1.56 -r1.57
--- modperl_interp.c 25 Mar 2003 07:51:08 -0000 1.56
+++ modperl_interp.c 27 Mar 2003 22:10:35 -0000 1.57
@@ -225,13 +225,12 @@
apr_pool_t *server_pool = modperl_server_pool();
pTHX;
MP_dSCFG(s);
+ modperl_interp_pool_t *mip =
+ (modperl_interp_pool_t *)apr_pcalloc(p, sizeof(*mip));
MP_TRACE_i(MP_FUNC, "modperl_interp_init() server=%s\n",
modperl_server_desc(s, p));
- modperl_interp_pool_t *mip =
- (modperl_interp_pool_t *)apr_pcalloc(p, sizeof(*mip));
-
if (scfg->threaded_mpm) {
mip->tipool = modperl_tipool_new(p, scfg->interp_pool_cfg,
&interp_pool_func, mip);