summaryrefslogtreecommitdiff
path: root/t/lib/warnings/pad
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/warnings/pad')
-rw-r--r--t/lib/warnings/pad42
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;