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

[stas]

stas        2004/04/02 18:35:47

  Modified:    src/modules/perl modperl_util.c
  Log:
  non-threaded perl compilation fixes
  
  Revision  Changes    Path
  1.66      +5 -2      modperl-2.0/src/modules/perl/modperl_util.c
  
  Index: modperl_util.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_util.c,v
  retrieving revision 1.65
  retrieving revision 1.66
  diff -u -u -r1.65 -r1.66
  --- modperl_util.c    2 Apr 2004 02:17:45 -0000       1.65
  +++ modperl_util.c    3 Apr 2004 02:35:47 -0000       1.66
  @@ -936,8 +936,11 @@
       hv_iterinit(hv);
   
       MP_TRACE_g(MP_FUNC, "|-------- PL_modglobal --------");
  -    MP_TRACE_g(MP_FUNC, "| perl 0x%lx PL_modglobal 0x%lx",
  -               (unsigned long)aTHX, (unsigned long)PL_modglobal);
  +#ifdef USE_ITHREADS
  +    MP_TRACE_g(MP_FUNC, "| perl 0x%lx", (unsigned long)aTHX);
  +#endif
  +    MP_TRACE_g(MP_FUNC, "| PL_modglobal 0x%lx",
  +               (unsigned long)PL_modglobal);
       
       while ((val = (AV*)hv_iternextsv(hv, &key, &klen))) {
           MP_TRACE_g(MP_FUNC, "| %s => 0x%lx", key, val);