This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Perl_hv_kill_backrefs is also used in scope.c
authorFather Chrysostomos <sprout@cpan.org>
Sat, 5 Nov 2011 21:44:04 +0000 (14:44 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 5 Nov 2011 21:44:04 +0000 (14:44 -0700)
Sorry for the smoke.

embed.fnc
proto.h

index 3a47a30..251d475 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2261,8 +2261,7 @@ p |void   |hv_ename_delete|NN HV *hv|NN const char *name|U32 len \
                                |U32 flags
 : Used in dump.c and hv.c
 poM    |AV**   |hv_backreferences_p    |NN HV *hv
-#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C)
-: Only used in sv.c
+#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_SCOPE_C)
 poM    |void   |hv_kill_backrefs       |NN HV *hv
 #endif
 Apd    |void   |hv_clear_placeholders  |NN HV *hv
diff --git a/proto.h b/proto.h
index c52b4d1..6aa9e2d 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -5432,7 +5432,7 @@ STATIC void       S_xmldump_attr(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
 
 #  endif
 #endif
-#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C)
+#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_SCOPE_C)
 PERL_CALLCONV void     Perl_hv_kill_backrefs(pTHX_ HV *hv)
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_HV_KILL_BACKREFS      \