In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/957a9e817d29a86f12809f29f95d467754b8707b?hp=e6e9f5a198d7e054e6857a9c6e99a07d639f7f3c>
- Log -----------------------------------------------------------------
commit 957a9e817d29a86f12809f29f95d467754b8707b
Author: Karl Williamson <k...@cpan.org>
Date: Sun May 20 17:09:37 2018 -0600
utf8.c: Use abbreviations consistently
Elsewhere in this function some abbreviations were introduced and used.
This is the one area not using them.
-----------------------------------------------------------------------
Summary of changes:
utf8.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/utf8.c b/utf8.c
index 4684fdb033..e3bda6e81e 100644
--- a/utf8.c
+++ b/utf8.c
@@ -387,8 +387,8 @@ Perl_uvoffuni_to_utf8_flags_msgs(pTHX_ U8 *d, UV uv, const
UV flags, HV** msgs)
STRLEN len = OFFUNISKIP(uv);
U8 *p = d+len-1;
while (p > d) {
- *p-- = I8_TO_NATIVE_UTF8((uv & UTF_CONTINUATION_MASK) |
UTF_CONTINUATION_MARK);
- uv >>= UTF_ACCUMULATION_SHIFT;
+ *p-- = I8_TO_NATIVE_UTF8((uv & MASK) | MARK);
+ uv >>= SHIFT;
}
*p = I8_TO_NATIVE_UTF8((uv & UTF_START_MASK(len)) |
UTF_START_MARK(len));
return d+len;
--
Perl5 Master Repository
