This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
integrate change#2053 from maint-5.005
[perl5.git] / cop.h
diff --git a/cop.h b/cop.h
index 98ae91f..1aa21d5 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -206,7 +206,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 {