This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.h: Refactor a macro
[perl5.git] / utf8.h
diff --git a/utf8.h b/utf8.h
index 4a964c4..129356e 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -275,7 +275,7 @@ encoded as UTF-8.  C<cp> is a native (ASCII or EBCDIC) code point if less than
 
 =cut
  */
 
 =cut
  */
-#define UVCHR_SKIP(uv) OFFUNISKIP(uv)
+#define UVCHR_SKIP(uv) ( UVCHR_IS_INVARIANT(uv) ? 1 : __BASE_UNI_SKIP(uv))
 
 /* ^? is defined to be DEL on ASCII systems.  See the definition of toCTRL()
  * for more */
 
 /* ^? is defined to be DEL on ASCII systems.  See the definition of toCTRL()
  * for more */