diff options
| author | Vincent Pit <perl@profvince.com> | 2009-07-22 14:35:49 +0200 |
|---|---|---|
| committer | Vincent Pit <perl@profvince.com> | 2009-07-22 14:36:48 +0200 |
| commit | bb5aedc13f30a9f0a65cc4c489b97a919d5d03a2 (patch) | |
| tree | 256433192fb696204f9c17f73abf325eeab0f533 /pp_ctl.c | |
| parent | 4fffee8e5bc0dd2368ad605f2046c6a9a2303392 (diff) | |
| download | perl-bb5aedc13f30a9f0a65cc4c489b97a919d5d03a2.tar.gz | |
Teach goto how to cross given/when blocks
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2624,6 +2624,8 @@ PP(pp_goto) case CXt_LOOP_LAZYSV: case CXt_LOOP_FOR: case CXt_LOOP_PLAIN: + case CXt_GIVEN: + case CXt_WHEN: gotoprobe = cx->blk_oldcop->op_sibling; break; case CXt_SUBST: |