produce redeclaration warning on C<our $foo; { our $foo; ... }>

p4raw-id: //depot/perl@4891

1 files changed, 15 insertions, 0 deletions

diff --git a/t/pragma/strict-vars b/t/pragma/strict-vars
index dc11f5d59e..9352c4b04c 100644
--- a/t/pragma/strict-vars
+++ b/t/pragma/strict-vars
@@ -339,3 +339,18 @@ ${foo} = 10;
 our $foo;
 EXPECT
 "our" variable $foo masks earlier declaration in same scope at - line 7.
+########
+
+# multiple our declarations in same scope, same package, warning
+use strict 'vars';
+use warnings;
+our $foo;
+{
+    our $foo;
+    package Foo;
+    our $foo;
+}
+EXPECT
+"our" variable $foo redeclared at - line 7.
+(Did you mean "local" instead of "our"?)
+Name "Foo::foo" used only once: possible typo at - line 9.