summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/mg_raw.h
diff options
context:
space:
mode:
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.h16
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: */