diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/mg_data.h')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CORE/mg_data.h | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/mg_data.h b/Master/tlpkg/tlperl/lib/CORE/mg_data.h index 10b10682488..23645abef46 100644 --- a/Master/tlpkg/tlperl/lib/CORE/mg_data.h +++ b/Master/tlpkg/tlperl/lib/CORE/mg_data.h @@ -40,7 +40,8 @@ 0, /* rhash '%' extra data for restricted hashes */ magic_vtable_max | PERL_MAGIC_VALUE_MAGIC, - 0, + /* proto '&' my sub prototype CV */ + magic_vtable_max, 0, 0, 0, @@ -71,8 +72,7 @@ 0, /* arylen_p '@' to move arylen out of XPVAV */ magic_vtable_max | PERL_MAGIC_VALUE_MAGIC, - /* overload 'A' %OVERLOAD hash */ - want_vtbl_amagic, + 0, /* bm 'B' Boyer-Moore (fast string search) */ want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC, 0, @@ -81,8 +81,7 @@ /* env 'E' %ENV hash */ want_vtbl_env, 0, - /* study 'G' study()ed string */ - want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC, + 0, /* hints 'H' %^H hash */ want_vtbl_hints, /* isa 'I' @ISA array */ @@ -104,7 +103,7 @@ /* uvar 'U' Available for use by extensions */ want_vtbl_uvar, /* vstring 'V' SV was vstring literal */ - want_vtbl_vstring | PERL_MAGIC_VALUE_MAGIC, + magic_vtable_max | PERL_MAGIC_VALUE_MAGIC, 0, 0, 0, @@ -112,12 +111,11 @@ 0, 0, /* checkcall ']' inlining/mutation of call to this CV */ - magic_vtable_max | PERL_MAGIC_VALUE_MAGIC, + want_vtbl_checkcall | PERL_MAGIC_VALUE_MAGIC, + 0, 0, 0, 0, - /* overload_elem 'a' %OVERLOAD hash element */ - want_vtbl_amagicelem, 0, /* overload_table 'c' Holds overload table (AMT) on stash */ want_vtbl_ovrld, @@ -126,7 +124,7 @@ /* envelem 'e' %ENV hash element */ want_vtbl_envelem, /* fm 'f' Formline ('compiled' format) */ - want_vtbl_regdata | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC, + want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC, /* regex_global 'g' m//g target */ want_vtbl_mglob | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC, /* hintselem 'h' %^H hash element */ |