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

[dougm]

dougm       01/02/04 14:19:12

  Modified:    src/modules/perl mod_perl.c
  Log:
  set PL_perl_destruct_level=2 #ifdef MP_DEBUG
  
  Revision  Changes    Path
  1.28      +6 -1      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.27
  retrieving revision 1.28
  diff -u -r1.27 -r1.28
  --- mod_perl.c        2001/01/21 21:12:07     1.27
  +++ mod_perl.c        2001/02/04 22:19:11     1.28
  @@ -23,7 +23,12 @@
       }
   
       perl_construct(perl);
  -
  +#ifdef MP_DEBUG
  +    {
  +        dTHXa(perl);
  +        PL_perl_destruct_level = 2;
  +    }
  +#endif
       status = perl_parse(perl, xs_init, argc, argv, NULL);
   
       if (status) {