From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Fri, 8 Jan 1999 04:37:10 +0000 (-0500)
Subject: Fix incorrect "used only once" warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=23ad5bf58812d09778a31055c1c5386b41da6ac2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);