# toke.c
use warnings 'reserved' ;
$a = abc;
+$a = { def
+
+=> 1 };
no warnings 'reserved' ;
$a = abc;
EXPECT
# toke.c
use warnings ;
eval <<'EOE';
+# line 30 "foo"
+warn "yelp";
{
-#line 30 "foo"
$_ = " \x{123} " ;
}
EOE
EXPECT
-
+yelp at foo line 30.
########
# toke.c
my $a = rand + 4 ;
# toke.c
use warnings 'misc' ;
my $a = "\m" ;
+my $b = "\_" ;
no warnings 'misc' ;
$a = "\m" ;
+$b = "\_" ;
EXPECT
Unrecognized escape \m passed through at - line 3.
########
Integer overflow in binary number at - line 5.
Integer overflow in hexadecimal number at - line 8.
Integer overflow in octal number at - line 11.
+########
+# toke.c
+use warnings 'ambiguous';
+"@mjd_previously_unused_array";
+no warnings 'ambiguous';
+"@mjd_previously_unused_array";
+EXPECT
+Possible unintended interpolation of @mjd_previously_unused_array in string at - line 3.