summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CORE/mg_data.h
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/mg_data.h')
-rw-r--r--Master/tlpkg/tlperl/lib/CORE/mg_data.h18
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 */