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.h16
1 files changed, 10 insertions, 6 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/mg_data.h b/Master/tlpkg/tlperl/lib/CORE/mg_data.h
index 446400c1e97..63de4c26e08 100644
--- a/Master/tlpkg/tlperl/lib/CORE/mg_data.h
+++ b/Master/tlpkg/tlperl/lib/CORE/mg_data.h
@@ -107,23 +107,26 @@
0,
0,
/* sig 'S' %SIG hash */
- magic_vtable_max,
+ want_vtbl_sig,
0,
/* uvar 'U' Available for use by extensions */
want_vtbl_uvar,
/* vstring 'V' SV was vstring literal */
magic_vtable_max | PERL_MAGIC_VALUE_MAGIC,
0,
- 0,
+ /* destruct 'X' destruct callback */
+ want_vtbl_destruct | PERL_MAGIC_VALUE_MAGIC,
/* nonelem 'Y' Array element that does not exist */
want_vtbl_nonelem | PERL_MAGIC_VALUE_MAGIC,
- 0,
+ /* hook 'Z' %{^HOOK} hash */
+ want_vtbl_hook,
0,
/* lvref '\' Lvalue reference constructor */
want_vtbl_lvref,
/* checkcall ']' Inlining/mutation of call to this CV */
want_vtbl_checkcall | PERL_MAGIC_VALUE_MAGIC,
- 0,
+ /* extvalue '^' Value magic available for use by extensions */
+ magic_vtable_max | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC,
0,
0,
0,
@@ -170,11 +173,12 @@
want_vtbl_substr | PERL_MAGIC_VALUE_MAGIC,
/* defelem 'y' Shadow "foreach" iterator variable / smart parameter vivification */
want_vtbl_defelem | PERL_MAGIC_VALUE_MAGIC,
+ /* hookelem 'z' %{^HOOK} hash element */
+ want_vtbl_hookelem,
0,
0,
0,
- 0,
- /* ext '~' Available for use by extensions */
+ /* ext '~' Variable magic available for use by extensions */
magic_vtable_max | PERL_MAGIC_READONLY_ACCEPTABLE,
0,
0,