mod_perl is special, and assigns meaning to a perl_destruct_level of

-1. Really this should be I8, but it turns out that Configure's choice
of type for I8 is buggy - it always uses char, which is unsigned on
some platforms.

p4raw-id: //depot/perl@32561

diff --git a/intrpvar.h b/intrpvar.h
index 8874e65..7799812 100644 (file)
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -194,7 +194,8 @@ PERLVAR(Itainted,   bool)           /* using variables controlled by $< */
 
 /* This value may be set when embedding for full cleanup  */
 /* 0=none, 1=full, 2=full with checks */
-PERLVARI(Iperl_destruct_level, U8,     0)
+/* mod_perl is special, and also assigns a meaning -1 */
+PERLVARI(Iperl_destruct_level, signed char,    0)
 
 PERLVAR(Iperldb,       U32)