Fix {} in regexes

sorear · Oct 20, 2011 · 3da8e40 · 3da8e40
1 parent a2beb89
commit 3da8e40
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/niecza b/src/niecza
@@ -49,6 +49,15 @@ augment class Op::CallMethod {
 }
 
 augment class NieczaActions {
+method metachar:sym<{ }> ($/) {
+    $/.CURSOR.trymop({
+        $<embeddedblock>.ast.add_my_name('$¢', :noinit, |mnode($/));
+        $<embeddedblock>.ast.set_signature(Sig.simple('$¢'));
+    });
+
+    make ::RxOp::VoidBlock.new(block => self.inliney_call($/,
+        $<embeddedblock>.ast, ::Op::MakeCursor.new(|node($/))));
+}
 method method_def_2 ($, $/ = $*cursor) {
     if $<multisig> > 1 {
         $/.CURSOR.sorry("You may only use *one* signature");