########
-W
--FILE-- abc.pm
+package abc;
no warnings 'syntax' ;
my $a = 0;
$a =+ 1 ;
use abc;
my $a ; chop $a ;
EXPECT
-Reversed += operator at abc.pm line 3.
+Reversed += operator at abc.pm line 4.
Use of uninitialized value in scalar chop at - line 3.
########
-W
--FILE-- abc
+package abc;
no warnings 'syntax' ;
my $a = 0;
$a =+ 1 ;
require "./abc";
my $a ; chop $a ;
EXPECT
-Reversed += operator at ./abc line 3.
+Reversed += operator at ./abc line 4.
Use of uninitialized value in scalar chop at - line 3.
########
-W
--FILE-- abc.pm
+package abc;
BEGIN {$^W = 0}
my $a = 0 ;
$a =+ 1 ;
use abc;
my $a ; chop $a ;
EXPECT
-Reversed += operator at abc.pm line 3.
+Reversed += operator at abc.pm line 4.
Use of uninitialized value in scalar chop at - line 3.
########
-W