diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/mg_raw.h')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CORE/mg_raw.h | 20 |
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: */ |