diff options
| author | David Mitchell <davem@iabyn.com> | 2010-07-29 13:33:19 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-07-29 13:33:19 +0100 |
| commit | 09aad8f0e83a4c56d98266fa1ae5deee23229182 (patch) | |
| tree | 5bff8df12eaf43b3e38d9748cce8269a5f60f43f /proto.h | |
| parent | 317ec34c4f2f5d6276d12392ee09cb99461cefd0 (diff) | |
| download | perl-09aad8f0e83a4c56d98266fa1ae5deee23229182.tar.gz | |
Revert "process xhv_backreferences early in S_hfreeentries"
This reverts commit 044d8c24fa9214cf0fe9c6fc8a44e03f3f5374d7.
Conflicts:
hv.c
That commit tried to simply the xhv_backreferences processing, but
was totally wrong and broke ordinary weak refs to hashes (see #76716).
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -6479,6 +6479,13 @@ PERL_CALLCONV AV** Perl_hv_backreferences_p(pTHX_ HV *hv) #define PERL_ARGS_ASSERT_HV_BACKREFERENCES_P \ assert(hv) +#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) +PERL_CALLCONV void Perl_hv_kill_backrefs(pTHX_ HV *hv) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_HV_KILL_BACKREFS \ + assert(hv) + +#endif PERL_CALLCONV void Perl_hv_clear_placeholders(pTHX_ HV *hv) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_HV_CLEAR_PLACEHOLDERS \ |