diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-07-12 23:31:52 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:03 -0700 |
| commit | 2a388207e072a645aa29f0b2b18f07d9a55cbf5e (patch) | |
| tree | e5cc426ec00c7925570598b6dd420b6050d9598e /regen/mg_vtable.pl | |
| parent | 194774c2461cd523598d669111a3251e2ceb0147 (diff) | |
| download | perl-2a388207e072a645aa29f0b2b18f07d9a55cbf5e.tar.gz | |
Add proto magic type
This will be used for storing the prototype CV of a ‘my’ sub. The
clone needs to occupy the pad entry so that padcv ops will be able to
find it. That means the clone has to displace its prototype. In case
the same sub is called recursively, we still need to be able to access
the prototype.
Diffstat (limited to 'regen/mg_vtable.pl')
| -rw-r--r-- | regen/mg_vtable.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index 5fcdc4c78f..9c722cf8e3 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -94,6 +94,7 @@ my %mg = desc => "Shadow \"foreach\" iterator variable /\nsmart parameter vivification" }, arylen => { char => '#', vtable => 'arylen', value_magic => 1, desc => 'Array length ($#ary)' }, + proto => { char => '&', desc => 'my sub prototype CV' }, pos => { char => '.', vtable => 'pos', value_magic => 1, desc => 'pos() lvalue' }, backref => { char => '<', vtable => 'backref', value_magic => 1, |