Wrap PL_blockhooks in an API function.

This should help prevent people from thinking they can get cute with the
contents.

1 files changed, 8 insertions, 0 deletions

diff --git a/op.c b/op.c
index dc18a2dac2..9caf8cdc5c 100644
--- a/op.c
+++ b/op.c
@@ -2343,6 +2343,14 @@ Perl_block_end(pTHX_ I32 floor, OP *seq)
     return retval;
 }
 
+void
+Perl_blockhook_register(pTHX_ BHK *hk)
+{
+    PERL_ARGS_ASSERT_BLOCKHOOK_REGISTER;
+
+    Perl_av_create_and_push(aTHX_ &PL_blockhooks, newSViv(PTR2IV(hk)));
+}
+
 STATIC OP *
 S_newDEFSVOP(pTHX)
 {