summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorVincent Pit <perl@profvince.com>2011-06-27 09:35:57 +0200
committerVincent Pit <perl@profvince.com>2011-06-27 09:35:57 +0200
commit0787ea8aaa88d48f432536f8d8f6658fe8ba47ed (patch)
tree6d5cba9dae5a20114bea77ba2a010a910c9d6431 /pp_ctl.c
parentc08f093b3e154c428f604f89f7feb633e6c97869 (diff)
downloadperl-0787ea8aaa88d48f432536f8d8f6658fe8ba47ed.tar.gz
Make sure break() resets the sp at its original level
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 9eb281451a..c442d0bf7e 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -5045,7 +5045,9 @@ PP(pp_break)
if (cxix < cxstack_ix)
dounwind(cxix);
- /* RETURNOP calls PUTBACK which restores the old old sp */
+ /* Restore the sp at the time we entered the given block */
+ TOPBLOCK(cx);
+
return cx->blk_givwhen.leave_op;
}