Fix incorrect "used only once" warnings

Message-ID: <19990108043710.A14390@monk.mps.ohio-state.edu>
Subject: Re: change#965 flakiness

p4raw-id: //depot/cfgperl@2784

diff --git a/gv.c b/gv.c
index 727692b..e6e4a55 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -107,7 +107,7 @@ gv_init(GV *gv, HV *stash, char *name, STRLEN len, int multi)
     GvSTASH(gv) = (HV*)SvREFCNT_inc(stash);
     GvNAME(gv) = savepvn(name, len);
     GvNAMELEN(gv) = len;
-    if (multi)
+    if (multi || doproto)              /* doproto means it _was_ mentioned */
        GvMULTI_on(gv);
     if (doproto) {                     /* Replicate part of newSUB here. */
        SvIOK_off(gv);