summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2005-05-30 23:37:15 +0000
committerDave Mitchell <davem@fdisolutions.com>2005-05-30 23:37:15 +0000
commit564abe232de07cdf98620f3e8fe522b3fed4c37c (patch)
tree4272cc7a31bbdd2d1cf1aeefdf0cfe9354cd166d
parent45d1cc86c04096be7208350f66eaf64f4ab1d6a1 (diff)
downloadperl-564abe232de07cdf98620f3e8fe522b3fed4c37c.tar.gz
add pointer to email explaining why eval {goto &foo} is banned
p4raw-id: //depot/perl@24642
-rw-r--r--pp_ctl.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 3a6c64f0ff..fbcb1c41cd 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2298,6 +2298,7 @@ PP(pp_goto)
dounwind(cxix);
TOPBLOCK(cx);
SPAGAIN;
+ /* ban goto in eval: see <20050521150056.GC20213@iabyn.com> */
if (CxTYPE(cx) == CXt_EVAL) {
if (CxREALEVAL(cx))
DIE(aTHX_ "Can't goto subroutine from an eval-string");