Remove set magic from typeglobs. Remove typeglob magic entirely.

[perl5.git] / gv.c

diff --git a/gv.c b/gv.c
index 20c2d47..7197e26 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -204,7 +204,6 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
     GvFILE(gv) = CopFILE(PL_curcop) ? CopFILE(PL_curcop) : (char *) "";
     GvCVGEN(gv) = 0;
     GvEGV(gv) = gv;
-    sv_magic((SV*)gv, (SV*)gv, PERL_MAGIC_glob, NULL, 0);
     SvSCREAM_on(gv);
     GvSTASH(gv) = stash;
     if (stash)