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 (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,