diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2011-12-27 08:31:06 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-12-28 22:58:46 -0800 |
| commit | 00455a9228d526dd30742f8768c5f710d40c2a85 (patch) | |
| tree | 2cab829fea115b4f218e055b2f3c2e0190366c19 /pp_ctl.c | |
| parent | 5343a617e1832a76d9e6805260dbcd579e845218 (diff) | |
| download | perl-00455a9228d526dd30742f8768c5f710d40c2a85.tar.gz | |
More diag_listed_as
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2837,8 +2837,10 @@ PP(pp_goto) /* ban goto in eval: see <20050521150056.GC20213@iabyn.com> */ if (CxTYPE(cx) == CXt_EVAL) { if (CxREALEVAL(cx)) + /* diag_listed_as: Can't goto subroutine from an eval-%s */ DIE(aTHX_ "Can't goto subroutine from an eval-string"); else + /* diag_listed_as: Can't goto subroutine from an eval-%s */ DIE(aTHX_ "Can't goto subroutine from an eval-block"); } else if (CxMULTICALL(cx)) |