In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/b3057643d885e4a0731c03045a8c66e4fb9cd662?hp=f70a2f5652ad183b5a2f30455d893099191d896d>
- Log -----------------------------------------------------------------
commit b3057643d885e4a0731c03045a8c66e4fb9cd662
Author: Karl Williamson <k...@cpan.org>
Date: Mon Oct 17 20:35:36 2016 -0600
utf8.c: Reflow 2 lines, so it is clear they are 2.
THis caused some confusion, see
<2b6ce3f8-b566-4581-b7e3-815c45f37...@petdance.com>
so I reflowed things.
-----------------------------------------------------------------------
Summary of changes:
utf8.c | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/utf8.c b/utf8.c
index a60fb50..8646323 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1079,8 +1079,9 @@ Perl_utf8n_to_uvchr_error(pTHX_ const U8 *s,
/* Now, loop through the remaining bytes in the character's sequence,
* accumulating each into the working value as we go. Be sure to not look
* past the end of the input string */
- send = adjusted_send
- = (U8*) s0 + ((expectlen <= curlen) ? expectlen : curlen);
+ send = adjusted_send = (U8*) s0 + ((expectlen <= curlen)
+ ? expectlen
+ : curlen);
for (s = s0 + 1; s < send; s++) {
if (LIKELY(UTF8_IS_CONTINUATION(*s))) {
uv = UTF8_ACCUMULATE(uv, *s);
--
Perl5 Master Repository
