diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-05-24 13:25:17 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-26 20:31:56 +0000 |
| commit | 971ecbe6f2aaf71c3a71c08000760f3d4f9bf287 (patch) | |
| tree | 0d5b7c3552b5eef74a10c429a12a76ffe69c3ce3 /pp_ctl.c | |
| parent | 48dc1ee65779dbdc177bc16530afd4f43c1c0ecf (diff) | |
| download | perl-971ecbe6f2aaf71c3a71c08000760f3d4f9bf287.tar.gz | |
Re: [perl #22299] goto doesn't find label
Date: Sat, 24 May 2003 12:25:17 +0100
Message-ID: <20030524112517.GA11761@fdgroup.com>
Subject: [PATCH] Re: [perl #22299] goto doesn't find label
From: Dave Mitchell <davem@fdgroup.com>
Date: Mon, 26 May 2003 13:47:11 +0100
Message-ID: <20030526124710.GA17670@fdgroup.com>
p4raw-id: //depot/perl@19625
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2402,7 +2402,7 @@ PP(pp_goto) switch (CxTYPE(cx)) { case CXt_EVAL: leaving_eval = TRUE; - if (CxREALEVAL(cx)) { + if (!CxTRYBLOCK(cx)) { gotoprobe = (last_eval_cx ? last_eval_cx->blk_eval.old_eval_root : PL_eval_root); |