Give OP_RV2HV a targ

[perl5.git] / regen / mg_vtable.pl

diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl
index 3277377..342f5e0 100644 (file)
--- a/regen/mg_vtable.pl
+++ b/regen/mg_vtable.pl
@@ -2,7 +2,7 @@
 #
 # Regenerate (overwriting only if changed):
 #
-#    mg_names.c
+#    mg_names.inc
 #    mg_raw.h
 #    mg_vtable.h
 #    pod/perlguts.pod
@@ -20,7 +20,7 @@ require 5.004;
 
 BEGIN {
     # Get function prototypes
-    require 'regen/regen_lib.pl';
+    require './regen/regen_lib.pl';
 }
 
 my %mg =
@@ -72,7 +72,7 @@ my %mg =
      tiedscalar => { char => 'q', vtable => 'packelem',
                     desc => 'Tied scalar or handle' },
      qr => { char => 'r', vtable => 'regexp', value_magic => 1, 
-            readonly_acceptable => 1, desc => 'precompiled qr// regex' },
+            readonly_acceptable => 1, desc => 'Precompiled qr// regex' },
      sig => { char => 'S', desc => '%SIG hash' },
      sigelem => { char => 's', vtable => 'sigelem',
                  desc => '%SIG hash element' },
@@ -94,24 +94,24 @@ 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,
-                 readonly_acceptable => 1, desc => 'for weak ref data' },
+                 readonly_acceptable => 1, desc => 'For weak ref data' },
      symtab => { char => ':', value_magic => 1,
-                desc => 'extra data for symbol tables' },
+                desc => 'Extra data for symbol tables' },
      rhash => { char => '%', value_magic => 1,
-               desc => 'extra data for restricted hashes' },
+               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' },
+                  desc => 'To move arylen out of XPVAV' },
+     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'},
+                   desc => 'Inlining/mutation of call to this CV'},
      debugvar => { char => '*', desc => '$DB::single, signal, trace vars',
                   vtable => 'debugvar' },
      lvref => { char => '\\', vtable => 'lvref',
-                 desc => "Lvalue reference in list assignment" },
+                 desc => "Lvalue reference constructor" },
 );
 
 # These have a subtly different "namespace" from the magic types.
@@ -155,7 +155,7 @@ my %sig =
 my ($vt, $raw, $names) = map {
     open_new($_, '>',
             { by => 'regen/mg_vtable.pl', file => $_, style => '*' });
-} 'mg_vtable.h', 'mg_raw.h', 'mg_names.c';
+} 'mg_vtable.h', 'mg_raw.h', 'mg_names.inc';
 my $guts = open_new("pod/perlguts.pod", ">");
 
 print $vt <<'EOH';