This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Reflow 2 lines, so it is clear they are 2.
authorKarl Williamson <khw@cpan.org>
Tue, 18 Oct 2016 02:35:36 +0000 (20:35 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 18 Oct 2016 02:41:03 +0000 (20:41 -0600)
THis caused some confusion, see
<2B6CE3F8-B566-4581-B7E3-815C45F37E04@petdance.com>
so I reflowed things.

utf8.c

diff --git a/utf8.c b/utf8.c
index a60fb50..8646323 100644 (file)
--- 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);