From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 3 Dec 2007 16:07:34 +0000 (+0000)
Subject:        Match destruct_level type from intrpvar.h, and refer to the docs there
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=be2ea8edb1ad49242572daf1a75efff932a62f25;p=p5sagit%2Fp5-mst-13.2.git

   Match destruct_level type from intrpvar.h, and refer to the docs there

p4raw-id: //depot/perl@32562
---

diff --git a/perl.c b/perl.c
index 657deda..e0bc0e7 100644
--- a/perl.c
+++ b/perl.c
@@ -563,7 +563,7 @@ int
 perl_destruct(pTHXx)
 {
     dVAR;
-    VOL int destruct_level;  /* 0=none, 1=full, 2=full with checks */
+    VOL signed char destruct_level;  /* see possible values in intrpvar.h */
     HV *hv;
 #ifdef DEBUG_LEAKING_SCALARS_FORK_DUMP
     pid_t child;