diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-04-23 20:29:13 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-21 16:51:34 -0700 |
commit | 09fb282d08ec6c0189a10f94933ae9c8b8186577 (patch) | |
tree | f14564b5856183a9cc59a306dd19105ec808ef9d /mg_vtable.h | |
parent | e33525913afb6ff03f7a9e1f9881fd5ea6982f22 (diff) | |
download | perl-09fb282d08ec6c0189a10f94933ae9c8b8186577.tar.gz |
Copy call checker when cloning closure prototype
Otherwise cv_set_call_checker has no effect inside an attribute han-
dler for a closure.
Diffstat (limited to 'mg_vtable.h')
-rw-r--r-- | mg_vtable.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/mg_vtable.h b/mg_vtable.h index 12f2fa35f3..e1622b20a5 100644 --- a/mg_vtable.h +++ b/mg_vtable.h @@ -65,6 +65,7 @@ enum { /* pass one of these to get_vtbl */ want_vtbl_arylen, want_vtbl_arylen_p, want_vtbl_backref, + want_vtbl_checkcall, want_vtbl_collxfrm, want_vtbl_dbline, want_vtbl_defelem, @@ -101,6 +102,7 @@ EXTCONST char *PL_magic_vtable_names[magic_vtable_max] = { "arylen", "arylen_p", "backref", + "checkcall", "collxfrm", "dbline", "defelem", @@ -156,6 +158,7 @@ EXT_MGVTBL PL_magic_vtables[magic_vtable_max] = { { (int (*)(pTHX_ SV *, MAGIC *))Perl_magic_getarylen, Perl_magic_setarylen, 0, 0, 0, 0, 0, 0 }, { 0, 0, 0, 0, Perl_magic_freearylen_p, 0, 0, 0 }, { 0, 0, 0, 0, Perl_magic_killbackrefs, 0, 0, 0 }, + { 0, 0, 0, 0, 0, Perl_magic_copycallchecker, 0, 0 }, #ifdef USE_LOCALE_COLLATE { 0, Perl_magic_setcollxfrm, 0, 0, 0, 0, 0, 0 }, #else @@ -204,6 +207,7 @@ EXT_MGVTBL PL_magic_vtables[magic_vtable_max]; #define PL_vtbl_arylen_p PL_magic_vtables[want_vtbl_arylen_p] #define PL_vtbl_backref PL_magic_vtables[want_vtbl_backref] #define PL_vtbl_bm PL_magic_vtables[want_vtbl_bm] +#define PL_vtbl_checkcall PL_magic_vtables[want_vtbl_checkcall] #define PL_vtbl_collxfrm PL_magic_vtables[want_vtbl_collxfrm] #define PL_vtbl_dbline PL_magic_vtables[want_vtbl_dbline] #define PL_vtbl_defelem PL_magic_vtables[want_vtbl_defelem] |