Do not interpolate bare @vars

sorear · May 16, 2011 · 3fd8a5d · 3fd8a5d
1 parent 772e83c
commit 3fd8a5d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/STD.pm6 b/src/STD.pm6
@@ -4200,6 +4200,7 @@ grammar Q is STD {
             :my $*QSIGIL ::= '@';
             <?before '@'>
             [ :lang(%*LANG<MAIN>) <EXPR(item %methodcall)> | <!> ] # trap ABORTBRANCH from variable's ::
+            <?after <[ \] } > ) ]> >
         }
     }
 
@@ -4212,6 +4213,7 @@ grammar Q is STD {
             :my $*QSIGIL ::= '%';
             <?before '%'>
             [ :lang(%*LANG<MAIN>) <EXPR(item %methodcall)> | <!> ]
+            <?after <[ \] } > ) ]> >
         }
     }
 
@@ -4224,6 +4226,7 @@ grammar Q is STD {
             :my $*QSIGIL ::= '&';
             <?before '&'>
             [ :lang(%*LANG<MAIN>) <EXPR(item %methodcall)> | <!> ]
+            <?after <[ \] } > ) ]> >
         }
     }
 

diff --git a/test2.pl b/test2.pl
@@ -160,6 +160,9 @@
 
     sub foo($x is rw) { $x }
     dies_ok { foo 5 }, "cannot rw-bind constant";
+
+    my @foo = 1,2,3; #OK
+    is "@foo", '@foo', '@-vars do not interpolate';
 }
 
 #is $?FILE, 'test.pl', '$?FILE works';