summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CORE/mg_raw.h
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/mg_raw.h')
-rw-r--r--Master/tlpkg/tlperl/lib/CORE/mg_raw.h20
1 files changed, 11 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/mg_raw.h b/Master/tlpkg/tlperl/lib/CORE/mg_raw.h
index f508ad0e572..b3e25d646b5 100644
--- a/Master/tlpkg/tlperl/lib/CORE/mg_raw.h
+++ b/Master/tlpkg/tlperl/lib/CORE/mg_raw.h
@@ -11,17 +11,17 @@
{ '#', "want_vtbl_arylen | PERL_MAGIC_VALUE_MAGIC",
"/* arylen '#' Array length ($#ary) */" },
{ '%', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
- "/* rhash '%' extra data for restricted hashes */" },
- { '&', "magic_vtable_max",
- "/* proto '&' my sub prototype CV */" },
+ "/* rhash '%' Extra data for restricted hashes */" },
+ { '*', "want_vtbl_debugvar",
+ "/* debugvar '*' $DB::single, signal, trace vars */" },
{ '.', "want_vtbl_pos | PERL_MAGIC_VALUE_MAGIC",
"/* pos '.' pos() lvalue */" },
{ ':', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
- "/* symtab ':' extra data for symbol tables */" },
+ "/* symtab ':' Extra data for symbol tables */" },
{ '<', "want_vtbl_backref | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
- "/* backref '<' for weak ref data */" },
+ "/* backref '<' For weak ref data */" },
{ '@', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
- "/* arylen_p '@' to move arylen out of XPVAV */" },
+ "/* arylen_p '@' To move arylen out of XPVAV */" },
{ 'B', "want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
"/* bm 'B' Boyer-Moore (fast string search) */" },
{ 'c', "want_vtbl_ovrld",
@@ -61,7 +61,7 @@
{ 'q', "want_vtbl_packelem",
"/* tiedscalar 'q' Tied scalar or handle */" },
{ 'r', "want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
- "/* qr 'r' precompiled qr// regex */" },
+ "/* qr 'r' Precompiled qr// regex */" },
{ 'S', "magic_vtable_max",
"/* sig 'S' %SIG hash */" },
{ 's', "want_vtbl_sigelem",
@@ -80,9 +80,11 @@
"/* substr 'x' substr() lvalue */" },
{ 'y', "want_vtbl_defelem | PERL_MAGIC_VALUE_MAGIC",
"/* defelem 'y' Shadow \"foreach\" iterator variable / smart parameter vivification */" },
+ { '\\', "want_vtbl_lvref",
+ "/* lvref '\\' Lvalue reference constructor */" },
{ ']', "want_vtbl_checkcall | PERL_MAGIC_VALUE_MAGIC",
- "/* checkcall ']' inlining/mutation of call to this CV */" },
- { '~', "magic_vtable_max",
+ "/* checkcall ']' Inlining/mutation of call to this CV */" },
+ { '~', "magic_vtable_max | PERL_MAGIC_READONLY_ACCEPTABLE",
"/* ext '~' Available for use by extensions */" },
/* ex: set ro: */