X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/5db06880675667a071aa923bc110c33a81cc6d8a..7bf00c8648fdb39d6fb0cb43bc6fe32aa4ebcf65:/sv.c

diff --git a/sv.c b/sv.c
index 846f812..e5e997c 100644
--- a/sv.c
+++ b/sv.c
@@ -10911,6 +10911,18 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 #ifdef PERL_MAD
     Copy(proto_perl->Inexttoke, PL_nexttoke, 5, NEXTTOKE);
     PL_lasttoke		= proto_perl->Ilasttoke;
+    PL_realtokenstart	= proto_perl->Irealtokenstart;
+    PL_faketokens	= proto_perl->Ifaketokens;
+    PL_thismad		= proto_perl->Ithismad;
+    PL_thistoken	= proto_perl->Ithistoken;
+    PL_thisopen		= proto_perl->Ithisopen;
+    PL_thisstuff	= proto_perl->Ithisstuff;
+    PL_thisclose	= proto_perl->Ithisclose;
+    PL_thiswhite	= proto_perl->Ithiswhite;
+    PL_nextwhite	= proto_perl->Inextwhite;
+    PL_skipwhite	= proto_perl->Iskipwhite;
+    PL_endwhite		= proto_perl->Iendwhite;
+    PL_curforce		= proto_perl->Icurforce;
 #else
     Copy(proto_perl->Inextval, PL_nextval, 5, YYSTYPE);
     Copy(proto_perl->Inexttype, PL_nexttype, 5,	I32);