From: Gisle Aas <gisle@aas.no>
Date: Wed, 9 Jan 2002 21:52:40 +0000 (-0800)
Subject: No 'once' warnings for variables declared with our
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=700078d27929e1c2ef893368a2d76a89cb91a1d0;p=p5sagit%2Fp5-mst-13.2.git

No 'once' warnings for variables declared with our
Message-ID: <lrg05e7nx3.fsf@caliper.activestate.com>

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

diff --git a/t/lib/strict/vars b/t/lib/strict/vars
index f7f8a1c..de51707 100644
--- a/t/lib/strict/vars
+++ b/t/lib/strict/vars
@@ -396,7 +396,6 @@ our $foo;
 EXPECT
 "our" variable $foo redeclared at - line 9.
 	(Did you mean "local" instead of "our"?)
-Name "Foo::foo" used only once: possible typo at - line 11.
 ########
 
 --FILE-- abc
diff --git a/toke.c b/toke.c
index 3046bb5..79a2cf5 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