summaryrefslogtreecommitdiff
path: root/cop.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-10-25 05:40:40 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-10-25 05:40:40 +0000
commit2158dd9ba94672764f0bb8563ece1a0573db179b (patch)
treed9e4b4b4b8f38dbd658c3bcffa36e6eaf2df1b8b /cop.h
parentf2da832e840f54013cb015f86420ceda75823b28 (diff)
downloadperl-2158dd9ba94672764f0bb8563ece1a0573db179b.tar.gz
integrate change#2053 from maint-5.005
p4raw-link: @2053 on //depot/maint-5.005/perl: 2c3f7d309175811e431d5baa7695e7610e2fa584 p4raw-id: //depot/perl@2057 p4raw-integrated: from //depot/maint-5.005/perl@2056 'copy in' t/cmd/while.t (@1649..) 'merge in' cop.h (@1649..)
Diffstat (limited to 'cop.h')
-rw-r--r--cop.h3
1 files changed, 2 insertions, 1 deletions
diff --git a/cop.h b/cop.h
index 98ae91f54a..1aa21d56ae 100644
--- 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 {