summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-06-19 06:43:08 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2014-06-19 10:26:25 -0400
commit148f39b7de6eae9ddd59e0b0aff691d6abea7aca (patch)
tree4234b72396b4e97e8fa5001078366a908af83e6a /perl.c
parent8ce6f80a4321cf8eaae14a6a8401f8e597c25f25 (diff)
downloadperl-148f39b7de6eae9ddd59e0b0aff691d6abea7aca.tar.gz
/* NOTREACHED */ belongs *before* the unreachable.
Definitely not *after* it. It marks the start of the unreachable, not the first unrechable line. And if they are in that order, it looks better to linebreak after the lint hint.
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c12
1 files changed, 8 insertions, 4 deletions
diff --git a/perl.c b/perl.c
index 9e0d2b5049..012d94f15e 100644
--- a/perl.c
+++ b/perl.c
@@ -2411,7 +2411,8 @@ S_run_body(pTHX_ I32 oldscope)
CALLRUNOPS(aTHX);
}
my_exit(0);
- assert(0); /* NOTREACHED */
+ /* NOTREACHED */
+ assert(0);
}
/*
@@ -2738,7 +2739,8 @@ Perl_call_sv(pTHX_ SV *sv, VOL I32 flags)
FREETMPS;
JMPENV_POP;
my_exit_jump();
- assert(0); /* NOTREACHED */
+ /* NOTREACHED */
+ assert(0);
case 3:
if (PL_restartop) {
PL_restartjmpenv = NULL;
@@ -2847,7 +2849,8 @@ Perl_eval_sv(pTHX_ SV *sv, I32 flags)
FREETMPS;
JMPENV_POP;
my_exit_jump();
- assert(0); /* NOTREACHED */
+ /* NOTREACHED */
+ assert(0);
case 3:
if (PL_restartop) {
PL_restartjmpenv = NULL;
@@ -4865,7 +4868,8 @@ Perl_call_list(pTHX_ I32 oldscope, AV *paramList)
CopLINE_set(PL_curcop, oldline);
JMPENV_POP;
my_exit_jump();
- assert(0); /* NOTREACHED */
+ /* NOTREACHED */
+ assert(0);
case 3:
if (PL_restartop) {
PL_curcop = &PL_compiling;