diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/mg_raw.h')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/mg_raw.h | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/mg_raw.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/mg_raw.h index 2f4863b08e..eddcbf5663 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/mg_raw.h +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/mg_raw.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- * * mg_raw.h * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! @@ -62,7 +62,7 @@ "/* tiedscalar 'q' Tied scalar or handle */" }, { 'r', "want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC", "/* qr 'r' Precompiled qr// regex */" }, - { 'S', "magic_vtable_max", + { 'S', "want_vtbl_sig", "/* sig 'S' %SIG hash */" }, { 's', "want_vtbl_sigelem", "/* sigelem 's' %SIG hash element */" }, @@ -76,17 +76,25 @@ "/* vec 'v' vec() lvalue */" }, { 'w', "want_vtbl_utf8 | PERL_MAGIC_VALUE_MAGIC", "/* utf8 'w' Cached UTF-8 information */" }, + { 'X', "want_vtbl_destruct | PERL_MAGIC_VALUE_MAGIC", + "/* destruct 'X' destruct callback */" }, { 'x', "want_vtbl_substr | PERL_MAGIC_VALUE_MAGIC", "/* substr 'x' substr() lvalue */" }, { 'Y', "want_vtbl_nonelem | PERL_MAGIC_VALUE_MAGIC", "/* nonelem 'Y' Array element that does not exist */" }, { 'y', "want_vtbl_defelem | PERL_MAGIC_VALUE_MAGIC", "/* defelem 'y' Shadow \"foreach\" iterator variable / smart parameter vivification */" }, + { 'Z', "want_vtbl_hook", + "/* hook 'Z' %{^HOOK} hash */" }, + { 'z', "want_vtbl_hookelem", + "/* hookelem 'z' %{^HOOK} hash element */" }, { '\\', "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 | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC", + "/* extvalue '^' Value magic available for use by extensions */" }, { '~', "magic_vtable_max | PERL_MAGIC_READONLY_ACCEPTABLE", - "/* ext '~' Available for use by extensions */" }, + "/* ext '~' Variable magic available for use by extensions */" }, -/* ex: set ro: */ +/* ex: set ro ft=c: */ |