autoquote barewords followed by newline and arrow properly

[perl5.git] / t / pragma / warn / toke

diff --git a/t/pragma/warn/toke b/t/pragma/warn/toke
index 5aeef82..f001ff7 100644 (file)
--- a/t/pragma/warn/toke
+++ b/t/pragma/warn/toke
@@ -290,6 +290,9 @@ Can't use \1 to mean $1 in expression at - line 4.
 # toke.c
 use warnings 'reserved' ;
 $a = abc;
+$a = { def
+
+=> 1 };
 no warnings 'reserved' ;
 $a = abc;
 EXPECT