diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-01-07 23:37:10 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-02-02 16:01:31 +0000 |
| commit | 23ad5bf58812d09778a31055c1c5386b41da6ac2 (patch) | |
| tree | 2a4de40c5951c0a6a20b32a095472dc7eb66f7d3 /gv.c | |
| parent | b7d8191e6d79b4fe0256b76f0638fbcf88d67aa7 (diff) | |
| download | perl-23ad5bf58812d09778a31055c1c5386b41da6ac2.tar.gz | |
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
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |