Change 14161 by jhi@alpha on 2002/01/10 14:48:52
Subject: [PATCH] No 'once' warnings for variables declared with our
From: Gisle Aas <[EMAIL PROTECTED]>
Date: 09 Jan 2002 21:52:40 -0800
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/lib/strict/vars#3 edit
.... //depot/perl/toke.c#407 edit
Differences ...
==== //depot/perl/t/lib/strict/vars#3 (text) ====
Index: perl/t/lib/strict/vars
--- perl/t/lib/strict/vars.~1~ Thu Jan 10 08:00:05 2002
+++ perl/t/lib/strict/vars Thu Jan 10 08:00:05 2002
@@ -396,7 +396,6 @@
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
==== //depot/perl/toke.c#407 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~ Thu Jan 10 08:00:05 2002
+++ perl/toke.c Thu Jan 10 08:00:05 2002
@@ -5233,7 +5233,7 @@
gv_fetchpv(SvPVX(sym),
(PL_in_eval
? (GV_ADDMULTI | GV_ADDINEVAL)
- : TRUE
+ : GV_ADDMULTI
),
((PL_tokenbuf[0] == '$') ? SVt_PV
: (PL_tokenbuf[0] == '@') ? SVt_PVAV
End of Patch.
