{ /* sv '\0' Special scalar variable */ want_vtbl_sv | PERL_MAGIC_READONLY_ACCEPTABLE, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* arylen '#' Array length ($#ary) */ want_vtbl_arylen | PERL_MAGIC_VALUE_MAGIC, 0, /* rhash '%' extra data for restricted hashes */ magic_vtable_max | PERL_MAGIC_VALUE_MAGIC, /* proto '&' my sub prototype CV */ magic_vtable_max, 0, 0, 0, 0, 0, 0, 0, /* pos '.' pos() lvalue */ want_vtbl_pos | PERL_MAGIC_VALUE_MAGIC, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* symtab ':' extra data for symbol tables */ magic_vtable_max | PERL_MAGIC_VALUE_MAGIC, 0, /* backref '<' for weak ref data */ want_vtbl_backref | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC, 0, 0, 0, /* arylen_p '@' to move arylen out of XPVAV */ magic_vtable_max | PERL_MAGIC_VALUE_MAGIC, 0, /* bm 'B' Boyer-Moore (fast string search) */ want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC, 0, /* regdata 'D' Regex match position data (@+ and @- vars) */ want_vtbl_regdata, /* env 'E' %ENV hash */ want_vtbl_env, 0, 0, /* hints 'H' %^H hash */ want_vtbl_hints, /* isa 'I' @ISA array */ want_vtbl_isa, 0, 0, /* dbfile 'L' Debugger %_