diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-13 21:48:53 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-06-13 21:48:53 -0400 |
| commit | b57b04d533ba5d71576359062a3470c22080f76d (patch) | |
| tree | 41acee35d9a43f0be44c9d08336590f242d3f362 /pp_ctl.c | |
| parent | 8c2b19724d117cecfa186d044abdbf766372c679 (diff) | |
| download | perl-b57b04d533ba5d71576359062a3470c22080f76d.tar.gz | |
Revert "Some low-hanging -Wunreachable-code fruits."
This reverts commit 8c2b19724d117cecfa186d044abdbf766372c679.
I don't understand - smoke-me came back happy with three
separate reports... oh well, some other time.
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -1357,8 +1357,9 @@ Perl_block_gimme(pTHX) return G_ARRAY; default: Perl_croak(aTHX_ "panic: bad gimme: %d\n", cxstack[cxix].blk_gimme); + assert(0); /* NOTREACHED */ + return 0; } - NOT_REACHED; /* NOTREACHED */ } I32 @@ -4335,8 +4336,8 @@ PP(pp_leaveeval) SvPVX_const(namesv), SvUTF8(namesv) ? -(I32)SvCUR(namesv) : (I32)SvCUR(namesv), G_DISCARD); - Perl_die(aTHX_ "%"SVf" did not return a true value", SVfARG(namesv)); - NOT_REACHED; /* NOTREACHED */ + retop = Perl_die(aTHX_ "%"SVf" did not return a true value", + SVfARG(namesv)); /* die_unwind() did LEAVE, or we won't be here */ } else { |