summaryrefslogtreecommitdiff
path: root/dump.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2006-02-23 18:00:19 +0000
committerNicholas Clark <nick@ccl4.org>2006-02-23 18:00:19 +0000
commitc0c446747ad6c5bde53bc8415ca16ef77f6320f2 (patch)
tree93c44ce727b19ed69ac39f8e982a9e958892bf57 /dump.c
parent32777db77ef3ebe0f903c9762d2dd94575f9b4a6 (diff)
downloadperl-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.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/dump.c b/dump.c
index bf885904fb..880bbae9dd 100644
--- a/dump.c
+++ b/dump.c
@@ -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";