In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/3b1d752dd57309cbf5f5018ddf5ec58ce2fcb7a4?hp=ac7609e4a8cf90d4a873cf5753face7d2c5f3976>
- Log ----------------------------------------------------------------- commit 3b1d752dd57309cbf5f5018ddf5ec58ce2fcb7a4 Author: David Mitchell <[email protected]> Date: Sat Feb 18 14:00:56 2017 +0000 pp_formline(): add empty body to empty while loop my previous commit in this function added a block that happened to follow directly after a bodiless while loop, i.e. 'while(...);'. clang spotted this and warned. So add an empty body '{}' after the while to visually disambiguate it. ----------------------------------------------------------------------- Summary of changes: pp_ctl.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pp_ctl.c b/pp_ctl.c index c4c8bcd0c1..44498bc3fe 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -878,7 +878,9 @@ PP(pp_formline) case FF_NEWLINE: /* delete trailing spaces, then append \n */ f++; - while (t-- > (SvPVX(PL_formtarget) + linemark) && *t == ' ') ; + while (t-- > (SvPVX(PL_formtarget) + linemark) && *t == ' ') + {} + { STRLEN cur = t - SvPVX_const(PL_formtarget); t = SvGROW(PL_formtarget, cur + 1 + 1) + cur; -- Perl5 Master Repository
