From 09fb282d08ec6c0189a10f94933ae9c8b8186577 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Mon, 23 Apr 2012 20:29:13 -0700 Subject: Copy call checker when cloning closure prototype Otherwise cv_set_call_checker has no effect inside an attribute han- dler for a closure. --- mg_vtable.h | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'mg_vtable.h') 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] -- cgit v1.2.1