diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-06-13 08:45:16 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-15 12:28:15 -0700 |
| commit | 118e2215c7570362a701ac5fda6148b6d3542eae (patch) | |
| tree | 248694801974be0578e4ccc9e8d90fd7db5d4b32 /perl.c | |
| parent | 0d856a3ae8873b88b1fb47a0d9520f3db9e27b85 (diff) | |
| download | perl-118e2215c7570362a701ac5fda6148b6d3542eae.tar.gz | |
Use assertions for /* NOT REACHED */
to make sure it really is never reached.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -2412,7 +2412,7 @@ S_run_body(pTHX_ I32 oldscope) CALLRUNOPS(aTHX); } my_exit(0); - /* NOTREACHED */ + assert(0); /* NOTREACHED */ } /* @@ -2727,7 +2727,7 @@ Perl_call_sv(pTHX_ SV *sv, VOL I32 flags) FREETMPS; JMPENV_POP; my_exit_jump(); - /* NOTREACHED */ + assert(0); /* NOTREACHED */ case 3: if (PL_restartop) { PL_restartjmpenv = NULL; @@ -2836,7 +2836,7 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags) FREETMPS; JMPENV_POP; my_exit_jump(); - /* NOTREACHED */ + assert(0); /* NOTREACHED */ case 3: if (PL_restartop) { PL_restartjmpenv = NULL; @@ -4832,7 +4832,7 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList) CopLINE_set(PL_curcop, oldline); JMPENV_POP; my_exit_jump(); - /* NOTREACHED */ + assert(0); /* NOTREACHED */ case 3: if (PL_restartop) { PL_curcop = &PL_compiling; |