This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
80bfb4d
)
utf8.h: Add UTF8_SKIP as a synonym for UTF8SKIP
author
Karl Williamson
<khw@cpan.org>
Wed, 13 May 2015 23:27:48 +0000
(17:27 -0600)
committer
Karl 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
patch
|
blob
|
blame
|
history
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
*/
-#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