diff options
| author | Karl Williamson <khw@cpan.org> | 2017-06-05 18:33:05 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-06-08 11:04:43 -0600 |
| commit | 0cbf58655b076c3a89ba0364e0c7c75972ac5fb3 (patch) | |
| tree | ef392b52fd76dd05df8181c91596fe235e12072a /embed.h | |
| parent | 61343a04469440fa429b50b3763567fa52e0cbea (diff) | |
| download | perl-0cbf58655b076c3a89ba0364e0c7c75972ac5fb3.tar.gz | |
Add XS-callable function is_utf8_invariant_string_loc()
This is like is_utf8_invariant_string(), but takes an additional
parameter, a pointer into which it stores the location of the first
variant if any are found.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -294,7 +294,7 @@ #define is_utf8_graph(a) Perl_is_utf8_graph(aTHX_ a) #define is_utf8_idcont(a) Perl_is_utf8_idcont(aTHX_ a) #define is_utf8_idfirst(a) Perl_is_utf8_idfirst(aTHX_ a) -#define is_utf8_invariant_string S_is_utf8_invariant_string +#define is_utf8_invariant_string_loc S_is_utf8_invariant_string_loc #define is_utf8_lower(a) Perl_is_utf8_lower(aTHX_ a) #define is_utf8_mark(a) Perl_is_utf8_mark(aTHX_ a) #define is_utf8_perl_space(a) Perl_is_utf8_perl_space(aTHX_ a) |