This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.h: Add UTF8_SKIP as a synonym for UTF8SKIP
authorKarl Williamson <khw@cpan.org>
Wed, 13 May 2015 23:27:48 +0000 (17:27 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 1 Aug 2015 16:34:50 +0000 (10:34 -0600)
Most of the other names in utf8.h have an underscore; this allows
someone to keep things consistent in their code.

utf8.h

diff --git a/utf8.h b/utf8.h
index 19e5d96..3e6e409 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -367,7 +367,8 @@ only) byte is pointed to by C<s>.
 
 =cut
  */
 
 =cut
  */
-#define UTF8SKIP(s) PL_utf8skip[*(const U8*)(s)]
+#define UTF8SKIP(s)  PL_utf8skip[*(const U8*)(s)]
+#define UTF8_SKIP(s) UTF8SKIP(s)
 
 /* Is the byte 'c' the same character when encoded in UTF-8 as when not.  This
  * works on both UTF-8 encoded strings and non-encoded, as it returns TRUE in
 
 /* Is the byte 'c' the same character when encoded in UTF-8 as when not.  This
  * works on both UTF-8 encoded strings and non-encoded, as it returns TRUE in