This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.h: Fix macro definition
authorKarl Williamson <khw@cpan.org>
Mon, 9 Nov 2015 05:02:22 +0000 (22:02 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 10 Dec 2015 00:11:54 +0000 (17:11 -0700)
This has been wrong, and won't compile, should anyone have tried, since
635e76f560b3b3ca075aa2cb5d6d661601968e04 earlier in 5.23.

utf8.h

diff --git a/utf8.h b/utf8.h
index d200c18..aefbe37 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -417,7 +417,7 @@ encoded as UTF-8.  C<cp> is a native (ASCII or EBCDIC) code point if less than
  * Note that the result can be larger than 255 if the input character is not
  * downgradable */
 #define TWO_BYTE_UTF8_TO_NATIVE(HI, LO) \
-    ( __ASSERT_(UTF8SKIP(HI) == 2)                                              \
+    ( __ASSERT_(PL_utf8skip[HI] == 2)                                           \
       __ASSERT_(UTF8_IS_CONTINUATION(LO))                                       \
      UNI_TO_NATIVE(UTF8_ACCUMULATE((NATIVE_UTF8_TO_I8(HI) & UTF_START_MASK(2)), \
                                    (LO))))