diff options
| author | Dave Bailey <unknown> | 2006-10-17 02:37:28 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-18 08:24:30 +0000 |
| commit | ea8d6ae1f062ab3b10e0ad05f17970dead9860ff (patch) | |
| tree | 28b0a07ff39693b9fa7e2155d79717dc5f3e6c3d /scope.c | |
| parent | b13fd70a68ddf5966a8175e04009af31c9841332 (diff) | |
| download | perl-ea8d6ae1f062ab3b10e0ad05f17970dead9860ff.tar.gz | |
[perl #40557] regexec.c saves context stack position improperly
From: Dave Bailey (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.5.HEAD-4979-1161103047-337.40557-75-0@perl.org>
p4raw-id: //depot/perl@29033
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -831,6 +831,10 @@ Perl_leave_scope(pTHX_ I32 base) i = SSPOPINT; PL_stack_sp = PL_stack_base + i; break; + case SAVEt_STACK_CXPOS: /* blk_oldsp on context stack */ + i = SSPOPINT; + cxstack[i].blk_oldsp = SSPOPINT; + break; case SAVEt_AELEM: /* array element */ value = (SV*)SSPOPPTR; i = SSPOPINT; |