cvs commit: modperl-2.0/src/modules/perl modperl_config.h

[dougm]

dougm       01/10/11 08:38:23

  Modified:    src/modules/perl modperl_config.h
  Log:
  add MP_dTHX macro
  
  Revision  Changes    Path
  1.28      +10 -0     modperl-2.0/src/modules/perl/modperl_config.h
  
  Index: modperl_config.h
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_config.h,v
  retrieving revision 1.27
  retrieving revision 1.28
  diff -u -r1.27 -r1.28
  --- modperl_config.h  2001/08/08 16:20:31     1.27
  +++ modperl_config.h  2001/10/11 15:38:23     1.28
  @@ -59,6 +59,16 @@
   #   define MP_dSCFG_dTHX dTHXa(scfg->perl)
   #endif
   
  +/* hopefully this macro will not need to be used often */
  +#ifdef USE_ITHREADS
  +#   define MP_dTHX \
  +    modperl_interp_t *interp = \
  +       modperl_interp_select(r, r->connection, r->server); \
  +    dTHXa(interp->perl)
  +#else
  +#   define MP_dTHX dNOOP
  +#endif
  +
   int modperl_config_apply_PerlModule(server_rec *s,
                                       modperl_config_srv_t *scfg,
                                       PerlInterpreter *perl, apr_pool_t *p);