X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/72164d3add31277285dcd604f1d805aac391be5b..fdb6583df1c4f517177410eb3717709aebd3b25a:/utf8.h

diff --git a/utf8.h b/utf8.h
index 4a964c4..129356e 100644
--- 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
  */
-#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 */