From: Gisle Aas <gisle@aas.no>
Date: Thu, 10 Jan 2002 08:56:05 +0000 (-0800)
Subject: Re: [PATCH] No 'once' warnings for variables declared with our
X-Git-Tag: perl-5.8.0~2889
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/bea70d1e32b864d93964619bdc7928386e5e3130

Re: [PATCH] No 'once' warnings for variables declared with our
Message-ID: <lrg05ep2l6.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@14172
---

diff --git a/toke.c b/toke.c
index 79a2cf5..8382333 100644
--- a/toke.c
+++ b/toke.c
@@ -6699,7 +6699,7 @@ intro_sym:
 		gv = gv_fetchpv(d,
 				(PL_in_eval
 				 ? (GV_ADDMULTI | GV_ADDINEVAL)
-				 : TRUE),
+				 : GV_ADDMULTI),
 				SVt_PV);
 		PL_lex_op = (OP*)newUNOP(OP_READLINE, 0,
 					    newUNOP(OP_RV2SV, 0,