From ccc1a9c1475ffcf23cc047634d882e9627e3b8da Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Tue, 25 May 2010 08:40:02 -0500
Subject: [PATCH] Don't treat $0, $1, etc. as normal variable interpolations.

---
 src/Perl6/Grammar.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index 21b4c0815d2..03492b4edf4 100644
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -1811,7 +1811,7 @@ grammar Perl6::Regex is Regex::P6Regex::Grammar {
     }
 
     token metachar:sym<rakvar> {
-        <?[$@]> <?before .\w> <var=.LANG('MAIN', 'variable')>
+        <?[$@]> <?before .<?alpha>> <var=.LANG('MAIN', 'variable')>
     }
 
     token assertion:sym<{ }> {