Speed up method calls like $o->Other::method() and $o->Other::SUPER::method().

[perl5.git] / regen / mg_vtable.pl

diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl
index 247423c..46dce97 100644 (file)
--- a/regen/mg_vtable.pl
+++ b/regen/mg_vtable.pl
@@ -94,7 +94,6 @@ 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,
@@ -105,7 +104,8 @@ my %mg =
                desc => 'Extra data for restricted hashes' },
      arylen_p => { char => '@', value_magic => 1,
                   desc => 'To move arylen out of XPVAV' },
-     ext => { char => '~', desc => 'Available for use by extensions' },
+     ext => { char => '~', desc => 'Available for use by extensions',
+             readonly_acceptable => 1 },
      checkcall => { char => ']', value_magic => 1, vtable => 'checkcall',
                    desc => 'Inlining/mutation of call to this CV'},
      debugvar => { char => '*', desc => '$DB::single, signal, trace vars',