diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 08:46:10 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-28 08:46:10 +0000 |
| commit | 5ce0178e8e6a35225316965a9dccd12fa35eb60d (patch) | |
| tree | d131ffaa067d0e95c2f034f1a7afc432b2e81c6d /t | |
| parent | b9449ee00d2461c5a220b8b0cd7ee22c0d775f7c (diff) | |
| download | perl-5ce0178e8e6a35225316965a9dccd12fa35eb60d.tar.gz | |
fix bogus redeclaration warning for "our" variables in different
scopes
p4raw-id: //depot/perl@6137
Diffstat (limited to 't')
| -rw-r--r-- | t/pragma/strict-vars | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/pragma/strict-vars b/t/pragma/strict-vars index a764fb23d6..5ba579d969 100644 --- a/t/pragma/strict-vars +++ b/t/pragma/strict-vars @@ -387,6 +387,8 @@ EXPECT # multiple our declarations in same scope, same package, warning use strict 'vars'; use warnings; +{ our $x = 1 } +{ our $x = 0 } our $foo; { our $foo; @@ -394,9 +396,9 @@ our $foo; our $foo; } EXPECT -"our" variable $foo redeclared at - line 7. +"our" variable $foo redeclared at - line 9. (Did you mean "local" instead of "our"?) -Name "Foo::foo" used only once: possible typo at - line 9. +Name "Foo::foo" used only once: possible typo at - line 11. ######## # Make sure the strict vars failure still occurs |