Check interaction of $^W and lexical
__END__
# Check interaction of $^W and use warnings
sub fred {
use warnings ;
my $b ;
chop $b ;
}
{ local $^W = 0 ;
fred() ;
}
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########
# Check interaction of $^W and use warnings
sub fred {
use warnings ;
my $b ;
chop $b ;
}
{ $^W = 0 ;
fred() ;
}
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########
# Check interaction of $^W and use warnings
sub fred {
no warnings ;
my $b ;
chop $b ;
}
{ local $^W = 1 ;
fred() ;
}
EXPECT
########
# Check interaction of $^W and use warnings
sub fred {
no warnings ;
my $b ;
chop $b ;
}
{ $^W = 1 ;
fred() ;
}
EXPECT
########
# Check interaction of $^W and use warnings
use warnings ;
$^W = 1 ;
my $b ;
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########
# Check interaction of $^W and use warnings
$^W = 1 ;
use warnings ;
my $b ;
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########
# Check interaction of $^W and use warnings
$^W = 1 ;
no warnings ;
my $b ;
chop $b ;
EXPECT
########
# Check interaction of $^W and use warnings
no warnings ;
$^W = 1 ;
my $b ;
chop $b ;
EXPECT
########
-w
# Check interaction of $^W and use warnings
no warnings ;
my $b ;
chop $b ;
EXPECT
########
-w
# Check interaction of $^W and use warnings
use warnings ;
my $b ;
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 5.
########
# Check interaction of $^W and use warnings
sub fred {
use warnings ;
my $b ;
chop $b ;
}
BEGIN { $^W = 0 }
fred() ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########
# Check interaction of $^W and use warnings
sub fred {
no warnings ;
my $b ;
chop $b ;
}
BEGIN { $^W = 1 }
fred() ;
EXPECT
########
# Check interaction of $^W and use warnings
use warnings ;
BEGIN { $^W = 1 }
my $b ;
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########
# Check interaction of $^W and use warnings
BEGIN { $^W = 1 }
use warnings ;
my $b ;
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 6.
########
# Check interaction of $^W and use warnings
BEGIN { $^W = 1 }
no warnings ;
my $b ;
chop $b ;
EXPECT
########
# Check interaction of $^W and use warnings
no warnings ;
BEGIN { $^W = 1 }
my $b ;
chop $b ;
EXPECT
########
# Check interaction of $^W and use warnings
BEGIN { $^W = 1 }
{
no warnings ;
my $b ;
chop $b ;
}
my $b ;
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 10.
########
# Check interaction of $^W and use warnings
BEGIN { $^W = 0 }
{
use warnings ;
my $b ;
chop $b ;
}
my $b ;
chop $b ;
EXPECT
Use of uninitialized value in scalar chop at - line 7.
########
# Check scope of pragma with eval
BEGIN { $^W = 1 }
{
no warnings ;
eval '
my $b ; chop $b ;
'; print STDERR $@ ;
my $b ; chop $b ;
}
EXPECT
########
# Check scope of pragma with eval
BEGIN { $^W = 1 }
use warnings;
{
no warnings ;
eval q[
use warnings 'uninitialized' ;
my $b ; chop $b ;
]; print STDERR $@;
my $b ; chop $b ;
}
EXPECT
Use of uninitialized value in scalar chop at (eval 1) line 3.
########
# Check scope of pragma with eval
BEGIN { $^W = 0 }
{
use warnings 'uninitialized' ;
eval '
my $b ; chop $b ;
'; print STDERR $@ ;
my $b ; chop $b ;
}
EXPECT
Use of uninitialized value in scalar chop at (eval 1) line 2.
Use of uninitialized value in scalar chop at - line 9.
########
# Check scope of pragma with eval
BEGIN { $^W = 0 }
{
use warnings 'uninitialized' ;
eval '
no warnings ;
my $b ; chop $b ;
'; print STDERR $@ ;
my $b ; chop $b ;
}
EXPECT
Use of uninitialized value in scalar chop at - line 10.
########
# Check scope of pragma with eval
BEGIN { $^W = 1 }
{
no warnings ;
eval '
my $a =+ 1 ;
'; print STDERR $@ ;
my $a =+ 1 ;
}
EXPECT