X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_ctl.c;h=6f91d0201893cf334ef49d8c8b04b0156712f6cd;hb=e4c5322dee1b8e87ff0e7aee20effad846301447;hp=e01d7e5dddc97149d02425f6f409f899809ec275;hpb=4136a0f799bd94dcf9c5197e35db53e3c3c012b5;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_ctl.c b/pp_ctl.c
index e01d7e5..6f91d02 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -302,7 +302,7 @@ PP(pp_substcont)
 	(void)ReREFCNT_inc(rx);
     cx->sb_rxtainted |= RX_MATCH_TAINTED(rx);
     rxres_save(&cx->sb_rxres, rx);
-    RETURNOP(pm->op_pmreplstart);
+    RETURNOP(pm->op_pmstashstartu.op_pmreplstart);
 }
 
 void
@@ -2911,7 +2911,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
     SAVEI32(PL_error_count);
 
 #ifdef PERL_MAD
-    SAVEI32(PL_madskills);
+    SAVEBOOL(PL_madskills);
     PL_madskills = 0;
 #endif