diff options
author | Vincent Pit <perl@profvince.com> | 2011-06-27 09:35:57 +0200 |
---|---|---|
committer | Vincent Pit <perl@profvince.com> | 2011-06-27 09:35:57 +0200 |
commit | 0787ea8aaa88d48f432536f8d8f6658fe8ba47ed (patch) | |
tree | 6d5cba9dae5a20114bea77ba2a010a910c9d6431 /pp_ctl.c | |
parent | c08f093b3e154c428f604f89f7feb633e6c97869 (diff) | |
download | perl-0787ea8aaa88d48f432536f8d8f6658fe8ba47ed.tar.gz |
Make sure break() resets the sp at its original level
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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; } |