diff options
| author | Karl Williamson <khw@cpan.org> | 2015-05-13 17:38:08 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-09-04 10:21:17 -0600 |
| commit | 5f560d8a4c59b10752c634d9aa60ea57dd4eeff1 (patch) | |
| tree | 4b1892e9cb54eb43d3d27caae775aa2d2269829b /regcomp.c | |
| parent | 19d0ef390c454e5bf965592560ce9818e74c13a6 (diff) | |
| download | perl-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 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -11579,7 +11579,7 @@ S_alloc_maybe_populate_EXACT(pTHX_ RExC_state_t *pRExC_state, /* A single character node is SIMPLE, except for the special-cased SHARP S * under /di. */ - if ((len == 1 || (UTF && len == UNISKIP(code_point))) + if ((len == 1 || (UTF && len == UVCHR_SKIP(code_point))) #if UNICODE_MAJOR_VERSION > 3 /* no multifolds in early Unicode */ \ || (UNICODE_MAJOR_VERSION == 3 && ( UNICODE_DOT_VERSION > 0) \ || UNICODE_DOT_DOT_VERSION > 0) @@ -12635,7 +12635,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) * its representation until PASS2. */ if (SIZE_ONLY) { if (UTF) { - const STRLEN unilen = UNISKIP(ender); + const STRLEN unilen = UVCHR_SKIP(ender); s += unilen; /* We have to subtract 1 just below (and again in |