diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-07-19 14:12:38 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-07-19 14:12:38 +0000 |
commit | 7f73a9f140198d1b3d1c2f2b62d4fd14dc5667c3 (patch) | |
tree | b2b93ed533f5fe20f74d67c1e63e28e1675cbbe4 /t/lib/strict | |
parent | 4e3bc6ae6a0630a65b9a3f0043bebeeaa828d763 (diff) | |
download | perl-7f73a9f140198d1b3d1c2f2b62d4fd14dc5667c3.tar.gz |
Extend the the "our variable redeclared" warning to the case:
our $x; our $x;
and add more tests
p4raw-id: //depot/perl@25187
Diffstat (limited to 't/lib/strict')
-rw-r--r-- | t/lib/strict/vars | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/lib/strict/vars b/t/lib/strict/vars index 06d9e0059e..16deab9837 100644 --- a/t/lib/strict/vars +++ b/t/lib/strict/vars @@ -372,14 +372,14 @@ EXPECT 20 ######## -# multiple our declarations in same scope, same package, no warning +# multiple our declarations in same scope, same package, warning use strict 'vars'; use warnings; our $foo; ${foo} = 10; our $foo; EXPECT - +"our" variable $foo redeclared at - line 7. ######## # multiple our declarations in same scope, same package, warning @@ -390,12 +390,14 @@ use warnings; our $foo; { our $foo; + our $foo; package Foo; our $foo; } EXPECT "our" variable $foo redeclared at - line 9. (Did you mean "local" instead of "our"?) +"our" variable $foo redeclared at - line 10. ######## --FILE-- abc |