diff options
| author | Gerard Goossen <gerard@tty.nl> | 2009-10-29 12:27:49 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2009-11-06 14:16:27 +0100 |
| commit | bb4c52e023e0fcade469e46e9a1d5245ff44f3f2 (patch) | |
| tree | 70d31b8d5045c7af391d3b1a8a98054d96902263 /pp_ctl.c | |
| parent | 45a2d9782bd1c90e53c52dacd30d9b185db62239 (diff) | |
| download | perl-bb4c52e023e0fcade469e46e9a1d5245ff44f3f2.tar.gz | |
move JMPENV_JUMP to die_where and mark it as "noreturn"
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -1543,7 +1543,7 @@ Perl_qerror(pTHX_ SV *err) ++PL_parser->error_count; } -OP * +void Perl_die_where(pTHX_ SV *msv) { dVAR; @@ -1632,14 +1632,15 @@ Perl_die_where(pTHX_ SV *msv) *msg ? msg : "Unknown error\n"); } assert(CxTYPE(cx) == CXt_EVAL); - return cx->blk_eval.retop; + PL_restartop = cx->blk_eval.retop; + JMPENV_JUMP(3); + /* NOTREACHED */ } } write_to_stderr( msv ? msv : ERRSV ); my_failure_exit(); /* NOTREACHED */ - return 0; } PP(pp_xor) |