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 /regen/mg_vtable.pl | |
| 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 'regen/mg_vtable.pl')
| -rw-r--r-- | regen/mg_vtable.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index 605846bec6..f49471bf2b 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -105,7 +105,7 @@ my %mg = arylen_p => { char => '@', value_magic => 1, desc => 'to move arylen out of XPVAV' }, ext => { char => '~', desc => 'Available for use by extensions' }, - checkcall => { char => ']', value_magic => 1, + checkcall => { char => ']', value_magic => 1, vtable => 'checkcall', desc => 'inlining/mutation of call to this CV'}, ); @@ -145,6 +145,7 @@ my %sig = 'hintselem' => {set => 'sethint', clear => 'clearhint'}, 'hints' => {clear => 'clearhints'}, 'vstring' => {set => 'setvstring'}, + 'checkcall' => {copy => 'copycallchecker'}, ); my ($vt, $raw, $names) = map { |