This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
No 'once' warnings for variables declared with our
authorGisle Aas <gisle@aas.no>
Wed, 9 Jan 2002 21:52:40 +0000 (13:52 -0800)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 10 Jan 2002 14:48:52 +0000 (14:48 +0000)
Message-ID: <lrg05e7nx3.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@14161

t/lib/strict/vars
toke.c

index f7f8a1c..de51707 100644 (file)
@@ -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