In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/df09255f565b73f060cd59e80498786e0f80d4a7?hp=73560ddf6122a9507cd835ca87b431a3b94723c8>
- Log ----------------------------------------------------------------- commit df09255f565b73f060cd59e80498786e0f80d4a7 Author: Svyatoslav <[email protected]> Date: Fri Oct 5 17:16:54 2018 +0300 PVS-Studio: fixed warning in ternary operator. (from https://github.com/Perl/perl5/pull/17) ----------------------------------------------------------------------- Summary of changes: toke.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/toke.c b/toke.c index b09bd8da27..31aa672361 100644 --- a/toke.c +++ b/toke.c @@ -9559,9 +9559,9 @@ S_scan_ident(pTHX_ char *s, char *dest, STRLEN destlen, I32 ck_uni) s = skipspace(s); } } - if ((s <= PL_bufend - (is_utf8) + if ((s <= PL_bufend - ((is_utf8) ? UTF8SKIP(s) - : 1) + : 1)) && VALID_LEN_ONE_IDENT(s, PL_bufend, is_utf8)) { if (is_utf8) { -- Perl5 Master Repository
