From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 3 Dec 2007 15:54:54 +0000 (+0000)
Subject: mod_perl is special, and assigns meaning to a perl_destruct_level of
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=801627e84ab3093b6f512c99a013e9b9b71eddbf;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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)