cvs commit: modperl-2.0/src/modules/perl modperl_interp.c

[stas]

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);