This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: redo LOOP not restoring $` $' $&
[perl5.git] / cop.h
diff --git a/cop.h b/cop.h
index 9c8eae6..6c5021c 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -205,7 +205,8 @@ struct block {
        PL_stack_sp      = PL_stack_base + cx->blk_oldsp,                       \
        PL_markstack_ptr = PL_markstack + cx->blk_oldmarksp,            \
        PL_scopestack_ix = cx->blk_oldscopesp,                          \
-       PL_retstack_ix   = cx->blk_oldretsp
+       PL_retstack_ix   = cx->blk_oldretsp,                            \
+       PL_curpm         = cx->blk_oldpm
 
 /* substitution context */
 struct subst {