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 (file)
--- 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 (file)
--- 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