You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/02/04 23:19:12 UTC
cvs commit: modperl-2.0/src/modules/perl mod_perl.c
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) {