diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-02-23 18:00:19 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-02-23 18:00:19 +0000 |
commit | c0c446747ad6c5bde53bc8415ca16ef77f6320f2 (patch) | |
tree | 93c44ce727b19ed69ac39f8e982a9e958892bf57 /dump.c | |
parent | 32777db77ef3ebe0f903c9762d2dd94575f9b4a6 (diff) | |
download | perl-c0c446747ad6c5bde53bc8415ca16ef77f6320f2.tar.gz |
Remove set magic from typeglobs. Remove typeglob magic entirely.
Typeglobs now never access the SvPVX, SvIVX or SvNVX when holding a
valid GvGP().
p4raw-id: //depot/perl@27289
Diffstat (limited to 'dump.c')
-rw-r--r-- | dump.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -894,7 +894,6 @@ static const struct { const char type; const char *name; } magic_names[] = { { PERL_MAGIC_sv, "sv(\\0)" }, { PERL_MAGIC_arylen, "arylen(#)" }, { PERL_MAGIC_rhash, "rhash(%)" }, - { PERL_MAGIC_glob, "glob(*)" }, { PERL_MAGIC_pos, "pos(.)" }, { PERL_MAGIC_symtab, "symtab(:)" }, { PERL_MAGIC_backref, "backref(<)" }, @@ -956,7 +955,6 @@ Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 else if (v == &PL_vtbl_dbline) s = "dbline"; else if (v == &PL_vtbl_isa) s = "isa"; else if (v == &PL_vtbl_arylen) s = "arylen"; - else if (v == &PL_vtbl_glob) s = "glob"; else if (v == &PL_vtbl_mglob) s = "mglob"; else if (v == &PL_vtbl_nkeys) s = "nkeys"; else if (v == &PL_vtbl_taint) s = "taint"; |