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

[stas]

stas        2004/02/14 11:23:05

  Modified:    src/modules/perl modperl_handler.c modperl_mgv.c
  Log:
  non-ithreaded perl fixes
  
  Revision  Changes    Path
  1.23      +2 -1      modperl-2.0/src/modules/perl/modperl_handler.c
  
  Index: modperl_handler.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_handler.c,v
  retrieving revision 1.22
  retrieving revision 1.23
  diff -u -u -r1.22 -r1.23
  --- modperl_handler.c 9 Feb 2004 20:35:26 -0000       1.22
  +++ modperl_handler.c 14 Feb 2004 19:23:05 -0000      1.23
  @@ -1,6 +1,6 @@
   #include "mod_perl.h"
   
  -
  +#ifdef USE_ITHREADS
   static
   char *modperl_coderef2text(pTHX_ apr_pool_t *p, CV *cv)
   {
  @@ -58,6 +58,7 @@
   
       return text;
   }
  +#endif
   
   modperl_handler_t *modperl_handler_new(apr_pool_t *p, const char *name)
   {
  
  
  
  1.34      +5 -0      modperl-2.0/src/modules/perl/modperl_mgv.c
  
  Index: modperl_mgv.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_mgv.c,v
  retrieving revision 1.33
  retrieving revision 1.34
  diff -u -u -r1.33 -r1.34
  --- modperl_mgv.c     11 Feb 2004 01:19:23 -0000      1.33
  +++ modperl_mgv.c     14 Feb 2004 19:23:05 -0000      1.34
  @@ -198,6 +198,11 @@
       char *handler_name = "handler";
       char *tmp;
   
  +    if (MpHandlerANON(handler)) {
  +        /* already resolved anonymous handler */
  +        return 1;
  +    }
  +    
       if (strnEQ(name, "sub ", 4)) {
           MP_TRACE_h(MP_FUNC, "handler is anonymous\n");
           MpHandlerANON_On(handler);