diff options
| author | Ben Morrow <ben@morrow.me.uk> | 2009-12-07 12:55:57 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgs@consttype.org> | 2010-07-12 10:40:47 +0200 |
| commit | bb6c22e795117e6d984471c0be74c8b3302b3b9a (patch) | |
| tree | e4fd879b498c3df488403078ee2a97e48ec7ca5e /ext | |
| parent | 52db365a88f7ab3b9b091f983a05054164499982 (diff) | |
| download | perl-bb6c22e795117e6d984471c0be74c8b3302b3b9a.tar.gz | |
Wrap PL_blockhooks in an API function.
This should help prevent people from thinking they can get cute with the
contents.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 54880b73b3..35533fcf8e 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -641,10 +641,7 @@ BOOT: Newxz(bhk, 1, BHK); BhkENTRY_set(bhk, start, blockhook_start); BhkENTRY_set(bhk, pre_end, blockhook_pre_end); - - if (!PL_blockhooks) - PL_blockhooks = newAV(); - av_push(PL_blockhooks, newSViv(PTR2IV(bhk))); + Perl_blockhook_register(aTHX_ bhk); } void |