diff options
Diffstat (limited to 't/lib/warnings/pad')
-rw-r--r-- | t/lib/warnings/pad | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/t/lib/warnings/pad b/t/lib/warnings/pad index 4e31fe338b..bd8e9c0675 100644 --- a/t/lib/warnings/pad +++ b/t/lib/warnings/pad @@ -29,7 +29,7 @@ __END__ # pad.c -use warnings 'misc' ; +use warnings 'shadow' ; my $x ; my $x ; my $y = my $y ; @@ -37,7 +37,7 @@ my $p ; package X ; my $p ; package main ; -no warnings 'misc' ; +no warnings 'shadow' ; my $x ; my $y ; my $p ; @@ -47,7 +47,7 @@ EXPECT "my" variable $p masks earlier declaration in same scope at - line 8. ######## # pad.c -use warnings 'misc' ; +use warnings 'shadow' ; our $x ; my $x ; our $y = my $y ; @@ -55,7 +55,7 @@ our $p ; package X ; my $p ; package main ; -no warnings 'misc' ; +no warnings 'shadow' ; our $z ; my $z ; our $t = my $t ; @@ -68,7 +68,7 @@ EXPECT "my" variable $p masks earlier declaration in same scope at - line 8. ######## # pad.c -use warnings 'misc' ; +use warnings 'shadow' ; my $x ; our $x ; my $y = our $y ; @@ -76,7 +76,7 @@ my $p ; package X ; our $p ; package main ; -no warnings 'misc' ; +no warnings 'shadow' ; my $z ; our $z ; my $t = our $t ; @@ -234,7 +234,7 @@ our $y; sub { $x = $y }->(); # should not warn about $y being unavailable EXPECT ######## -use warnings 'misc' ; +use warnings 'shadow' ; my $x; { my $x; @@ -242,7 +242,7 @@ my $x; EXPECT ######## # pad.c -use warnings 'misc' ; +use warnings 'shadow' ; our $x ; our $x ; our $y = our $y ; @@ -250,7 +250,7 @@ our $p ; package X ; our $p ; package main ; -no warnings 'misc' ; +no warnings 'shadow' ; our $a ; our $a ; our $b = our $b ; @@ -261,13 +261,13 @@ EXPECT "our" variable $x redeclared at - line 4. "our" variable $y redeclared at - line 5. ######## -use warnings 'misc' ; +use warnings 'shadow' ; our $x; { our $x; } our $x; -no warnings 'misc' ; +no warnings 'shadow' ; our $y; { our $y; @@ -278,36 +278,36 @@ EXPECT (Did you mean "local" instead of "our"?) "our" variable $x redeclared at - line 6. ######## -use warnings 'misc' ; +use warnings 'shadow' ; our $x; { my $x; } -no warnings 'misc' ; +no warnings 'shadow' ; our $y; { my $y; } EXPECT ######## -use warnings 'misc' ; +use warnings 'shadow' ; my $x; { our $x; } -no warnings 'misc' ; +no warnings 'shadow' ; my $y; { our $y; } EXPECT ######## -use warnings 'misc' ; +use warnings 'shadow' ; my $x; { my $x; } -no warnings 'misc' ; +no warnings 'shadow' ; my $y; { my $y; @@ -320,13 +320,13 @@ use warnings; our $x unless $x; EXPECT ######## -use warnings 'misc'; +use warnings 'shadow'; our $qunckkk; our $_; package clank_est; our $qunckkk; our $_; -no warnings 'misc'; +no warnings 'shadow'; our $ouch; our $_; package whack; @@ -335,7 +335,7 @@ our $_; EXPECT "our" variable $_ redeclared at - line 6. ######## -use warnings 'misc'; +use warnings 'shadow'; BEGIN { binmode STDERR, 'utf8'; } { use utf8; @@ -345,7 +345,7 @@ BEGIN { binmode STDERR, 'utf8'; } EXPECT "my" variable $ニコニコ masks earlier declaration in same scope at - line 6. ######## -use warnings 'misc'; +use warnings 'shadow'; BEGIN { binmode STDERR, 'utf8'; } { use utf8; |