X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=gv.c;h=e24fc4520608b834faf7242a56e3ec9f67b9b1e2;hb=6662521eef19f96de52b97fb5fa07a85826679ee;hp=1c3a95354edebe16c464b2b05c9b907e6bb7a6f3;hpb=7fdcfa2fc732bf742f6e1c2b723ab188bf8dc010;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/gv.c b/gv.c
index 1c3a953..e24fc45 100644
--- a/gv.c
+++ b/gv.c
@@ -106,7 +106,7 @@ Perl_gv_init(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, int multi)
     GvFILE(gv) = CopFILE(PL_curcop) ? CopFILE(PL_curcop) : "";
     GvCVGEN(gv) = 0;
     GvEGV(gv) = gv;
-    sv_magic((SV*)gv, (SV*)gv, '*', name, len);
+    sv_magic((SV*)gv, (SV*)gv, '*', Nullch, 0);
     GvSTASH(gv) = (HV*)SvREFCNT_inc(stash);
     GvNAME(gv) = savepvn(name, len);
     GvNAMELEN(gv) = len;