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

[dougm]

dougm       01/12/11 15:20:34

  Modified:    src/modules/perl mod_perl.c
  Log:
  suspend END blocks to be run at server shutdown
  
  Revision  Changes    Path
  1.99      +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.98
  retrieving revision 1.99
  diff -u -r1.98 -r1.99
  --- mod_perl.c        2001/12/04 22:43:07     1.98
  +++ mod_perl.c        2001/12/11 23:20:34     1.99
  @@ -75,6 +75,7 @@
   
   PerlInterpreter *modperl_startup(server_rec *s, apr_pool_t *p)
   {
  +    AV *endav;
       dTHXa(NULL);
       MP_dSCFG(s);
       PerlInterpreter *perl;
  @@ -116,7 +117,13 @@
           exit(1);
       }
   
  +    /* suspend END blocks to be run at server shutdown */
  +    endav = PL_endav;
  +    PL_endav = Nullav;
  +
       perl_run(perl);
  +
  +    PL_endav = endav;
   
       MP_TRACE_i(MP_FUNC, "constructed interpreter=0x%lx\n",
                  (unsigned long)perl);