diff options
-rw-r--r-- | embed.fnc | 2 | ||||
-rw-r--r-- | embed.h | 2 | ||||
-rw-r--r-- | sv.c | 7 |
3 files changed, 7 insertions, 4 deletions
@@ -1879,7 +1879,7 @@ Apd |int |sv_isa |NULLOK SV* sv|NN const char *const name Apd |int |sv_isobject |NULLOK SV* sv Apd |STRLEN |sv_len |NULLOK SV *const sv Apd |STRLEN |sv_len_utf8 |NULLOK SV *const sv -p |STRLEN |sv_len_utf8_nomg|NN SV *const sv +Apd |STRLEN |sv_len_utf8_nomg|NN SV *const sv Apd |void |sv_magic |NN SV *const sv|NULLOK SV *const obj|const int how \ |NULLOK const char *const name|const I32 namlen Apd |MAGIC *|sv_magicext |NN SV *const sv|NULLOK SV *const obj|const int how \ @@ -629,6 +629,7 @@ #endif #define sv_len(a) Perl_sv_len(aTHX_ a) #define sv_len_utf8(a) Perl_sv_len_utf8(aTHX_ a) +#define sv_len_utf8_nomg(a) Perl_sv_len_utf8_nomg(aTHX_ a) #define sv_magic(a,b,c,d,e) Perl_sv_magic(aTHX_ a,b,c,d,e) #define sv_magicext(a,b,c,d,e,f) Perl_sv_magicext(aTHX_ a,b,c,d,e,f) #define sv_mortalcopy_flags(a,b) Perl_sv_mortalcopy_flags(aTHX_ a,b) @@ -1495,7 +1496,6 @@ #define sv_clean_objs() Perl_sv_clean_objs(aTHX) #define sv_del_backref(a,b) Perl_sv_del_backref(aTHX_ a,b) #define sv_free_arenas() Perl_sv_free_arenas(aTHX) -#define sv_len_utf8_nomg(a) Perl_sv_len_utf8_nomg(aTHX_ a) #define sv_resetpvn(a,b,c) Perl_sv_resetpvn(aTHX_ a,b,c) #define sv_sethek(a,b) Perl_sv_sethek(aTHX_ a,b) #ifndef MULTIPLICITY @@ -7451,9 +7451,12 @@ Perl_sv_len(pTHX_ SV *const sv) /* =for apidoc sv_len_utf8 +=for apidoc_item sv_len_utf8_nomg -Returns the number of characters in the string in an SV, counting wide -UTF-8 bytes as a single character. Handles magic and type coercion. +These return the number of characters in the string in an SV, counting wide +UTF-8 bytes as a single character. Both handle type coercion. +They differ only in that C<sv_len_utf8> performs 'get' magic; +C<sv_len_utf8_nomg> skips any magic. =cut */ |