This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
APItest: Correct parameter sign
[perl5.git]
/
mg_raw.h
diff --git
a/mg_raw.h
b/mg_raw.h
index
f577087
..
b3e25d6
100644
(file)
--- a/
mg_raw.h
+++ b/
mg_raw.h
@@
-11,15
+11,17
@@
{ '#', "want_vtbl_arylen | PERL_MAGIC_VALUE_MAGIC",
"/* arylen '#' Array length ($#ary) */" },
{ '%', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
{ '#', "want_vtbl_arylen | PERL_MAGIC_VALUE_MAGIC",
"/* arylen '#' Array length ($#ary) */" },
{ '%', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
- "/* rhash '%' extra data for restricted hashes */" },
+ "/* rhash '%' Extra data for restricted hashes */" },
+ { '*', "want_vtbl_debugvar",
+ "/* debugvar '*' $DB::single, signal, trace vars */" },
{ '.', "want_vtbl_pos | PERL_MAGIC_VALUE_MAGIC",
"/* pos '.' pos() lvalue */" },
{ ':', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
{ '.', "want_vtbl_pos | PERL_MAGIC_VALUE_MAGIC",
"/* pos '.' pos() lvalue */" },
{ ':', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
- "/* symtab ':'
e
xtra data for symbol tables */" },
+ "/* symtab ':'
E
xtra data for symbol tables */" },
{ '<', "want_vtbl_backref | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
{ '<', "want_vtbl_backref | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
- "/* backref '<'
f
or weak ref data */" },
+ "/* backref '<'
F
or weak ref data */" },
{ '@', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
{ '@', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC",
- "/* arylen_p '@'
t
o move arylen out of XPVAV */" },
+ "/* arylen_p '@'
T
o move arylen out of XPVAV */" },
{ 'B', "want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
"/* bm 'B' Boyer-Moore (fast string search) */" },
{ 'c', "want_vtbl_ovrld",
{ 'B', "want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
"/* bm 'B' Boyer-Moore (fast string search) */" },
{ 'c', "want_vtbl_ovrld",
@@
-32,7
+34,7
@@
"/* env 'E' %ENV hash */" },
{ 'e', "want_vtbl_envelem",
"/* envelem 'e' %ENV hash element */" },
"/* env 'E' %ENV hash */" },
{ 'e', "want_vtbl_envelem",
"/* envelem 'e' %ENV hash element */" },
- { 'f', "want_vtbl_reg
data
| PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
+ { 'f', "want_vtbl_reg
exp
| PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
"/* fm 'f' Formline ('compiled' format) */" },
{ 'g', "want_vtbl_mglob | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
"/* regex_global 'g' m//g target */" },
"/* fm 'f' Formline ('compiled' format) */" },
{ 'g', "want_vtbl_mglob | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC",
"/* regex_global 'g' m//g target */" },
@@
-58,8
+60,8
@@
"/* tiedelem 'p' Tied array or hash element */" },
{ 'q', "want_vtbl_packelem",
"/* tiedscalar 'q' Tied scalar or handle */" },
"/* tiedelem 'p' Tied array or hash element */" },
{ 'q', "want_vtbl_packelem",
"/* tiedscalar 'q' Tied scalar or handle */" },
- { 'r', "want_vtbl_regexp | PERL_MAGIC_VALUE_MAGIC",
- "/* qr 'r'
p
recompiled qr// regex */" },
+ { 'r', "want_vtbl_regexp | PERL_MAGIC_
READONLY_ACCEPTABLE | PERL_MAGIC_
VALUE_MAGIC",
+ "/* qr 'r'
P
recompiled qr// regex */" },
{ 'S', "magic_vtable_max",
"/* sig 'S' %SIG hash */" },
{ 's', "want_vtbl_sigelem",
{ 'S', "magic_vtable_max",
"/* sig 'S' %SIG hash */" },
{ 's', "want_vtbl_sigelem",
@@
-78,9
+80,11
@@
"/* substr 'x' substr() lvalue */" },
{ 'y', "want_vtbl_defelem | PERL_MAGIC_VALUE_MAGIC",
"/* defelem 'y' Shadow \"foreach\" iterator variable / smart parameter vivification */" },
"/* substr 'x' substr() lvalue */" },
{ 'y', "want_vtbl_defelem | PERL_MAGIC_VALUE_MAGIC",
"/* defelem 'y' Shadow \"foreach\" iterator variable / smart parameter vivification */" },
+ { '\\', "want_vtbl_lvref",
+ "/* lvref '\\' Lvalue reference constructor */" },
{ ']', "want_vtbl_checkcall | PERL_MAGIC_VALUE_MAGIC",
{ ']', "want_vtbl_checkcall | PERL_MAGIC_VALUE_MAGIC",
- "/* checkcall ']'
i
nlining/mutation of call to this CV */" },
- { '~', "magic_vtable_max",
+ "/* checkcall ']'
I
nlining/mutation of call to this CV */" },
+ { '~', "magic_vtable_max
| PERL_MAGIC_READONLY_ACCEPTABLE
",
"/* ext '~' Available for use by extensions */" },
/* ex: set ro: */
"/* ext '~' Available for use by extensions */" },
/* ex: set ro: */