From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 4 Sep 2001 20:00:50 +0000 (+0000)
Subject: Retract #11870 and volatilize the right destruct_level.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c474504105f41654af9663caa833041d25306dc;p=p5sagit%2Fp5-mst-13.2.git

Retract #11870 and volatilize the right destruct_level.
Silly thinko pointed out by Sarathy.

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

diff --git a/intrpvar.h b/intrpvar.h
index 21d3282..fd39a09 100644
--- a/intrpvar.h
+++ b/intrpvar.h
@@ -52,7 +52,7 @@ PERLVAR(Iperldb,	U32)
 
 /* This value may be set when embedding for full cleanup  */
 /* 0=none, 1=full, 2=full with checks */
-PERLVARI(Iperl_destruct_level,	VOL int,	0)
+PERLVARI(Iperl_destruct_level,	int,	0)
 
 /* magical thingies */
 PERLVAR(Ibasetime,	Time_t)		/* $^T */
diff --git a/perl.c b/perl.c
index 8cc88f2..4a605da 100644
--- a/perl.c
+++ b/perl.c
@@ -287,7 +287,7 @@ Shuts down a Perl interpreter.  See L<perlembed>.
 int
 perl_destruct(pTHXx)
 {
-    int destruct_level;  /* 0=none, 1=full, 2=full with checks */
+    volatile int destruct_level;  /* 0=none, 1=full, 2=full with checks */
     HV *hv;
 #ifdef USE_5005THREADS
     Thread t;