diff options
| author | Tony Cook <tony@develop-help.com> | 2015-10-29 15:05:59 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2015-11-09 11:53:15 +1100 |
| commit | b1744e1301fac4040f4a35d41cb9ff1e8531edc3 (patch) | |
| tree | e43bc0a2a094a02454dcc53c2317234cf8375342 /embed.h | |
| parent | 636efde423cb618062f58fe3313feb544ebe3882 (diff) | |
| download | perl-b1744e1301fac4040f4a35d41cb9ff1e8531edc3.tar.gz | |
make sv_ref() part of the API
The existing sv_reftype() returns the class of a blessed SV only
as a const char *, so we can't tell if it's UTF8 or not.
This probably should have been API from the beginning.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -644,6 +644,7 @@ #define sv_pvutf8n(a,b) Perl_sv_pvutf8n(aTHX_ a,b) #define sv_pvutf8n_force(a,b) Perl_sv_pvutf8n_force(aTHX_ a,b) #define sv_recode_to_utf8(a,b) Perl_sv_recode_to_utf8(aTHX_ a,b) +#define sv_ref(a,b,c) Perl_sv_ref(aTHX_ a,b,c) #define sv_reftype(a,b) Perl_sv_reftype(aTHX_ a,b) #define sv_replace(a,b) Perl_sv_replace(aTHX_ a,b) #define sv_report_used() Perl_sv_report_used(aTHX) @@ -1323,7 +1324,6 @@ #define sv_free_arenas() Perl_sv_free_arenas(aTHX) #define sv_len_utf8_nomg(a) Perl_sv_len_utf8_nomg(aTHX_ a) #define sv_mortalcopy_flags(a,b) Perl_sv_mortalcopy_flags(aTHX_ a,b) -#define sv_ref(a,b,c) Perl_sv_ref(aTHX_ a,b,c) #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 PERL_IMPLICIT_CONTEXT |