Fix \(state $) misparse

sorear · Jul 12, 2011 · 8545ad6 · 8545ad6
1 parent ea9ecaa
commit 8545ad6
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/niecza b/src/niecza
@@ -115,6 +115,14 @@ method getsig {
 }
 
 augment grammar STD::P6 {
+    token capterm {
+        '\\'
+        [
+        | '(' ~ ')' <capture>?
+        | <?before \S> <termish>
+        | {} <.panic: "You can't backslash that">
+        ]
+    }
     rule package_def {
         :my $longname;
         :my $*IN_DECL = 'package';