diff options
| author | Yves Orton <demerphq@gmail.com> | 2014-12-25 01:33:42 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2014-12-25 01:34:39 +0100 |
| commit | eaab56493bda8d2c9e499f01433ea2da9b29f6e5 (patch) | |
| tree | f52f9654540bc436cf4482d0dfe54e65410158bc /embed.h | |
| parent | cced55d2e366f8ccb0884e747f32c32c1b538989 (diff) | |
| download | perl-eaab56493bda8d2c9e499f01433ea2da9b29f6e5.tar.gz | |
add new API function sv_get_backrefs()
This encapsulates the logic to extract the backrefs from a weak-referent.
Since sv_get_backrefs() can be used for a similar purposes as hv_backreferences_p()
we no longer need to export the later, and therefore this patch also reverts
ad2f46a793b4ade67d45ac0086ae62f6756c2752.
See perl #123473 for related discussion, and https://github.com/Sereal/Sereal/issues/73
for a practical example of why this API is required.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -620,6 +620,7 @@ #define sv_eq_flags(a,b,c) Perl_sv_eq_flags(aTHX_ a,b,c) #define sv_force_normal_flags(a,b) Perl_sv_force_normal_flags(aTHX_ a,b) #define sv_free(a) Perl_sv_free(aTHX_ a) +#define sv_get_backrefs(a) Perl_sv_get_backrefs(aTHX_ a) #define sv_gets(a,b,c) Perl_sv_gets(aTHX_ a,b,c) #define sv_grow(a,b) Perl_sv_grow(aTHX_ a,b) #define sv_inc(a) Perl_sv_inc(aTHX_ a) |