summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2015-05-13 17:38:08 -0600
committerKarl Williamson <khw@cpan.org>2015-09-04 10:21:17 -0600
commit5f560d8a4c59b10752c634d9aa60ea57dd4eeff1 (patch)
tree4b1892e9cb54eb43d3d27caae775aa2d2269829b /utf8.c
parent19d0ef390c454e5bf965592560ce9818e74c13a6 (diff)
downloadperl-5f560d8a4c59b10752c634d9aa60ea57dd4eeff1.tar.gz
Change to use UVCHR_SKIP over UNI_SKIP
UNI_SKIP is somewhat ambiguous. Perl has long used 'uvchr' as part of a name to mean the unsigned values using the native character set plus Unicode values for those above 255. This also changes two calls (one in dquote_static.c and one in dquote_inline.h) to use UVCHR_SKIP; they should not have been OFFUNI, as they are dealing with native values.
Diffstat (limited to 'utf8.c')
-rw-r--r--utf8.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/utf8.c b/utf8.c
index f466f1dc0f..5d4a7cef5f 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1831,7 +1831,7 @@ Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp,
}
if (hv
- && (svp = hv_fetch(hv, (const char*)p, UNISKIP(uv1), FALSE))
+ && (svp = hv_fetch(hv, (const char*)p, UVCHR_SKIP(uv1), FALSE))
&& (*svp))
{
const char *s;