__END__
# Check compile time warning
-use warnings FATAL => 'deprecated' ;
+use warnings FATAL => 'syntax' ;
{
no warnings ;
- 1 if $a EQ $b ;
+ $a =+ 1 ;
}
-1 if $a EQ $b ;
+$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
-Use of EQ is deprecated at - line 8.
+Reversed += operator at - line 8.
+########
+
+# Check compile time warning
+use warnings FATAL => 'all' ;
+{
+ no warnings ;
+ my $a =+ 1 ;
+}
+my $a =+ 1 ;
+print STDERR "The End.\n" ;
+EXPECT
+Reversed += operator at - line 8.
########
# Check runtime scope of pragma
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-Use of uninitialized value at - line 8.
+Use of uninitialized value in scalar chop at - line 8.
+########
+
+# Check runtime scope of pragma
+use warnings FATAL => 'all' ;
+{
+ no warnings ;
+ my $b ; chop $b ;
+}
+my $b ; chop $b ;
+print STDERR "The End.\n" ;
+EXPECT
+Use of uninitialized value in scalar chop at - line 8.
########
# Check runtime scope of pragma
&$a ;
print STDERR "The End.\n" ;
EXPECT
-Use of uninitialized value at - line 6.
+Use of uninitialized value in scalar chop at - line 6.
+########
+
+# Check runtime scope of pragma
+no warnings ;
+{
+ use warnings FATAL => 'all' ;
+ $a = sub { my $b ; chop $b ; }
+}
+&$a ;
+print STDERR "The End.\n" ;
+EXPECT
+Use of uninitialized value in scalar chop at - line 6.
########
--FILE-- abc
-1 if $a EQ $b ;
+$a =+ 1 ;
1;
--FILE--
-use warnings FATAL => 'deprecated' ;
+use warnings FATAL => 'syntax' ;
require "./abc";
EXPECT
########
--FILE-- abc
-use warnings FATAL => 'deprecated' ;
+use warnings FATAL => 'syntax' ;
1;
--FILE--
require "./abc";
-1 if $a EQ $b ;
+$a =+ 1 ;
EXPECT
########
--FILE-- abc
-use warnings 'deprecated' ;
-1 if $a EQ $b ;
+use warnings 'syntax' ;
+$a =+ 1 ;
1;
--FILE--
use warnings FATAL => 'uninitialized' ;
my $a ; chop $a ;
print STDERR "The End.\n" ;
EXPECT
-Use of EQ is deprecated at ./abc line 2.
-Use of uninitialized value at - line 3.
+Reversed += operator at ./abc line 2.
+Use of uninitialized value in scalar chop at - line 3.
########
--FILE-- abc.pm
-use warnings 'deprecated' ;
-1 if $a EQ $b ;
+use warnings 'syntax' ;
+$a =+ 1 ;
1;
--FILE--
use warnings FATAL => 'uninitialized' ;
my $a ; chop $a ;
print STDERR "The End.\n" ;
EXPECT
-Use of EQ is deprecated at abc.pm line 2.
-Use of uninitialized value at - line 3.
+Reversed += operator at abc.pm line 2.
+Use of uninitialized value in scalar chop at - line 3.
########
# Check scope of pragma with eval
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
--- Use of uninitialized value at - line 6.
+-- Use of uninitialized value in scalar chop at - line 6.
The End.
########
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
--- Use of uninitialized value at - line 5.
-Use of uninitialized value at - line 7.
+-- Use of uninitialized value in scalar chop at - line 5.
+Use of uninitialized value in scalar chop at - line 7.
########
# Check scope of pragma with eval
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-Use of uninitialized value at - line 8.
+Use of uninitialized value in scalar chop at - line 8.
########
# Check scope of pragma with eval
no warnings ;
eval {
- use warnings FATAL => 'deprecated' ;
- 1 if $a EQ $b ;
+ use warnings FATAL => 'syntax' ;
+ $a =+ 1 ;
}; print STDERR "-- $@" ;
-1 if $a EQ $b ;
+$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
-Use of EQ is deprecated at - line 6.
+Reversed += operator at - line 6.
########
# Check scope of pragma with eval
-use warnings FATAL => 'deprecated' ;
+use warnings FATAL => 'syntax' ;
eval {
- 1 if $a EQ $b ;
+ $a =+ 1 ;
}; print STDERR "-- $@" ;
-1 if $a EQ $b ;
+$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
-Use of EQ is deprecated at - line 5.
+Reversed += operator at - line 5.
########
# Check scope of pragma with eval
-use warnings FATAL => 'deprecated' ;
+use warnings FATAL => 'syntax' ;
eval {
no warnings ;
- 1 if $a EQ $b ;
+ $a =+ 1 ;
}; print STDERR $@ ;
-1 if $a EQ $b ;
+$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
-Use of EQ is deprecated at - line 8.
+Reversed += operator at - line 8.
########
# Check scope of pragma with eval
no warnings ;
eval {
- use warnings FATAL => 'deprecated' ;
+ use warnings FATAL => 'syntax' ;
}; print STDERR $@ ;
-1 if $a EQ $b ;
+$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
The End.
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
--- Use of uninitialized value at (eval 1) line 3.
+-- Use of uninitialized value in scalar chop at (eval 1) line 3.
The End.
########
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
--- Use of uninitialized value at (eval 1) line 2.
-Use of uninitialized value at - line 7.
+-- Use of uninitialized value in scalar chop at (eval 1) line 2.
+Use of uninitialized value in scalar chop at - line 7.
########
# Check scope of pragma with eval
my $b ; chop $b ;
print STDERR "The End.\n" ;
EXPECT
-Use of uninitialized value at - line 8.
+Use of uninitialized value in scalar chop at - line 8.
########
# Check scope of pragma with eval
no warnings ;
eval q[
- use warnings FATAL => 'deprecated' ;
- 1 if $a EQ $b ;
+ use warnings FATAL => 'syntax' ;
+ $a =+ 1 ;
]; print STDERR "-- $@";
-1 if $a EQ $b ;
+$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
--- Use of EQ is deprecated at (eval 1) line 3.
+-- Reversed += operator at (eval 1) line 3.
The End.
########
# Check scope of pragma with eval
-use warnings FATAL => 'deprecated' ;
+use warnings FATAL => 'syntax' ;
eval '
- 1 if $a EQ $b ;
+ $a =+ 1 ;
'; print STDERR "-- $@";
print STDERR "The End.\n" ;
EXPECT
--- Use of EQ is deprecated at (eval 1) line 2.
+-- Reversed += operator at (eval 1) line 2.
The End.
########
# Check scope of pragma with eval
-use warnings FATAL => 'deprecated' ;
+use warnings FATAL => 'syntax' ;
eval '
no warnings ;
- 1 if $a EQ $b ;
+ $a =+ 1 ;
'; print STDERR "-- $@";
-1 if $a EQ $b ;
+$a =+ 1 ;
print STDERR "The End.\n" ;
EXPECT
-Use of EQ is deprecated at - line 8.
+Reversed += operator at - line 8.