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

[dougm]

dougm       01/09/28 12:01:50

  Modified:    src/modules/perl mod_perl.c
  Log:
  PL_destruct_level should always be 2
  
  Revision  Changes    Path
  1.83      +6 -6      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.82
  retrieving revision 1.83
  diff -u -r1.82 -r1.83
  --- mod_perl.c        2001/09/28 18:34:30     1.82
  +++ mod_perl.c        2001/09/28 19:01:50     1.83
  @@ -58,6 +58,7 @@
   
   PerlInterpreter *modperl_startup(server_rec *s, apr_pool_t *p)
   {
  +    dTHXa(NULL);
       MP_dSCFG(s);
       PerlInterpreter *perl;
       int status;
  @@ -81,13 +82,12 @@
           exit(1);
       }
   
  +    aTHX = perl;
  +
       perl_construct(perl);
  -#ifdef MP_DEBUG
  -    {
  -        dTHXa(perl);
  -        PL_perl_destruct_level = 2;
  -    }
  -#endif
  +
  +    PL_perl_destruct_level = 2;
  +
       status = perl_parse(perl, modperl_xs_init, argc, argv, NULL);
   
       if (status) {