Change 11872 by jhi@alpha on 2001/09/04 20:00:50
Retract #11870 and volatilize the right destruct_level.
Silly thinko pointed out by Sarathy.
Affected files ...
... //depot/perl/intrpvar.h#87 edit
... //depot/perl/perl.c#366 edit
Differences ...
==== //depot/perl/intrpvar.h#87 (text) ====
Index: perl/intrpvar.h
--- perl/intrpvar.h.~1~ Tue Sep 4 14:15:05 2001
+++ perl/intrpvar.h Tue Sep 4 14:15:05 2001
@@ -52,7 +52,7 @@
/* 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 */
==== //depot/perl/perl.c#366 (text) ====
Index: perl/perl.c
--- perl/perl.c.~1~ Tue Sep 4 14:15:05 2001
+++ perl/perl.c Tue Sep 4 14:15:05 2001
@@ -287,7 +287,7 @@
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;
End of Patch.
