diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/mg_data.h')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CORE/mg_data.h | 16 |
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, |