Move the 12 static MAD variables from toke.c into the interpeter

structure.

p4raw-id: //depot/perl@27466

1 files changed, 4 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index c152a39689..2ffbb176fc 100644
--- a/perl.c
+++ b/perl.c
@@ -389,6 +389,10 @@ perl_construct(pTHXx)
     PL_timesbase.tms_cstime = 0;
 #endif
 
+#ifdef PERL_MAD
+    PL_curforce = -1;
+#endif
+
     ENTER;
 }