summaryrefslogtreecommitdiff
path: root/numeric.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-05-29 20:41:22 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2014-05-29 20:43:37 -0400
commit924ba0765e4151c6d9a29ad6b3c3f97c24673477 (patch)
treef2eee0262fd1483fd9903917b85f8dbf532e3c5e /numeric.c
parent81f54ac7f5f6cf7337babd8633132716c21d851a (diff)
downloadperl-924ba0765e4151c6d9a29ad6b3c3f97c24673477.tar.gz
Unify the "fall-through" lint annotation.
Used by linters (static checkers), and also good for human readers. Even though "FALL THROUGH" seems to be the most common, e.g BSD lint manual only knows "FALLTHROUGH" (or "FALLTHRU").
Diffstat (limited to 'numeric.c')
-rw-r--r--numeric.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/numeric.c b/numeric.c
index d4317289b5..3463f2d96a 100644
--- a/numeric.c
+++ b/numeric.c
@@ -947,7 +947,7 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value)
switch (*s) {
case '-':
negative = 1;
- /* fall through */
+ /* FALLTHROUGH */
case '+':
++s;
}
@@ -1045,7 +1045,7 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value)
switch (*s) {
case '-':
expnegative = 1;
- /* fall through */
+ /* FALLTHROUGH */
case '+':
++s;
}