This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH] No 'once' warnings for variables declared with our
authorGisle Aas <gisle@aas.no>
Thu, 10 Jan 2002 08:56:05 +0000 (00:56 -0800)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 10 Jan 2002 19:31:00 +0000 (19:31 +0000)
Message-ID: <lrg05ep2l6.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@14172

toke.c

diff --git a/toke.c b/toke.c
index 79a2cf5..8382333 100644 (file)
--- 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,