Do no -warn on \_, only on \alpha.

[p5sagit/p5-mst-13.2.git] / t / pragma / warn / toke

diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke
index 8db8027..b410e19 100644 (file)
--- a/t/pragma/warn/toke
+++ b/t/pragma/warn/toke
@@ -529,8 +529,10 @@ Ambiguous use of * resolved as operator * at - line 10.
 # 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.
 ########
@@ -585,3 +587,11 @@ EXPECT
 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.