diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-05-04 19:44:24 -0400 |
|---|---|---|
| committer | Steffen Mueller <smueller@cpan.org> | 2014-05-28 19:27:22 +0200 |
| commit | c67159e16ee2c8d23fc3c3a55448ffbda709b3f6 (patch) | |
| tree | e490fd9d5327e9f7519b1a0d3578baff4d241600 /dist | |
| parent | a482c76f48270e80f77784f6a08d244af9b26d7e (diff) | |
| download | perl-c67159e16ee2c8d23fc3c3a55448ffbda709b3f6.tar.gz | |
Annotate intentional case fallthrough, or add breaks.
Fix suspicious (*) switch cases found by Coverity by
annotating with either "/* FALLTHROUGH */" or adding a break;
The FALLTHROUGH was much more common, but the break turned
out to be the right choice in three spots. All changes tested
to work.
(*) suspicious = case1 + code + case2, and neither flow control
(like break) nor fallthrough annotation between code and case2.
Fix for Coverity perl5 CIDs 28977..28989, 45353.
Diffstat (limited to 'dist')
| -rw-r--r-- | dist/Data-Dumper/Dumper.pm | 4 | ||||
| -rw-r--r-- | dist/Data-Dumper/Dumper.xs | 1 |
2 files changed, 3 insertions, 2 deletions
diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm index 7c8a72c669..6f7a0d8226 100644 --- a/dist/Data-Dumper/Dumper.pm +++ b/dist/Data-Dumper/Dumper.pm @@ -10,7 +10,7 @@ package Data::Dumper; BEGIN { - $VERSION = '2.151'; # Don't forget to set version and release + $VERSION = '2.152'; # Don't forget to set version and release } # date in POD below! #$| = 1; @@ -1398,7 +1398,7 @@ modify it under the same terms as Perl itself. =head1 VERSION -Version 2.151 (March 7 2014) +Version 2.152 (March 7 2014) =head1 SEE ALSO diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs index 12c4ebd9f6..5bc3428c94 100644 --- a/dist/Data-Dumper/Dumper.xs +++ b/dist/Data-Dumper/Dumper.xs @@ -207,6 +207,7 @@ esc_q(char *d, const char *s, STRLEN slen) case '\\': *d = '\\'; ++d; ++ret; + /* FALLTHROUGH */ default: *d = *s; ++d; ++s; --slen; |