add pointer to email explaining why eval {goto &foo} is banned
Dave Mitchell [Mon, 30 May 2005 23:37:15 +0000 (23:37 +0000)]
p4raw-id: //depot/perl@24642

pp_ctl.c

index 3a6c64f..fbcb1c4 100644 (file)
--- 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");