missed the new file from #18224

[p5sagit/p5-mst-13.2.git] / toke.c

diff --git a/toke.c b/toke.c
index aff4549..7d73497 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -7568,6 +7568,7 @@ Perl_start_subparse(pTHX_ I32 is_format, U32 flags)
     PL_subline = CopLINE(PL_curcop);
     CvPADLIST(PL_compcv) = pad_new(padnew_SAVE|padnew_SAVESUB);
     CvOUTSIDE(PL_compcv) = (CV*)SvREFCNT_inc(outsidecv);
+    CvOUTSIDE_SEQ(PL_compcv) = PL_cop_seqmax;
 
     return oldsavestack_ix;
 }