summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorGisle Aas <gisle@aas.no>2002-01-09 13:52:40 -0800
committerJarkko Hietaniemi <jhi@iki.fi>2002-01-10 14:48:52 +0000
commit700078d27929e1c2ef893368a2d76a89cb91a1d0 (patch)
tree5462dbd249029209f172ff82a6b10cc82e3940a2 /toke.c
parent2ae48fff688c68e6afa331ca1e3b8b5e02043968 (diff)
downloadperl-700078d27929e1c2ef893368a2d76a89cb91a1d0.tar.gz
No 'once' warnings for variables declared with our
Message-ID: <lrg05e7nx3.fsf@caliper.activestate.com> p4raw-id: //depot/perl@14161
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/toke.c b/toke.c
index 3046bb535c..79a2cf59b5 100644
--- a/toke.c
+++ b/toke.c
@@ -5233,7 +5233,7 @@ S_pending_ident(pTHX)
gv_fetchpv(SvPVX(sym),
(PL_in_eval
? (GV_ADDMULTI | GV_ADDINEVAL)
- : TRUE
+ : GV_ADDMULTI
),
((PL_tokenbuf[0] == '$') ? SVt_PV
: (PL_tokenbuf[0] == '@') ? SVt_PVAV