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;
 }