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

[stas]

stas        2003/10/22 18:11:35

  Modified:    src/modules/perl mod_perl.c
  Log:
  after other parent perls were started in vhosts, make sure that
  the context is set to the base_perl
  
  Revision  Changes    Path
  1.198     +7 -0      modperl-2.0/src/modules/perl/mod_perl.c
  
  Index: mod_perl.c
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.c,v
  retrieving revision 1.197
  retrieving revision 1.198
  diff -u -u -r1.197 -r1.198
  --- mod_perl.c        23 Oct 2003 01:10:55 -0000      1.197
  +++ mod_perl.c        23 Oct 2003 01:11:35 -0000      1.198
  @@ -465,6 +465,13 @@
               exit(1); /*XXX*/
           }
       }
  +
  +#ifdef USE_ITHREADS
  +    /* after other parent perls were started in vhosts, make sure that
  +     * the context is set to the base_perl */
  +    PERL_SET_CONTEXT(base_perl);
  +#endif
  +
   }
   
   #ifdef USE_ITHREADS