Support empty positional captures.

Raku · Sep 29, 2012 · 9c348a6 · 9c348a6
1 parent f12484a
commit 9c348a6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/QRegex/P5Regex/Actions.nqp b/src/QRegex/P5Regex/Actions.nqp
@@ -85,7 +85,10 @@ class QRegex::P5Regex::Actions is HLL::Actions {
     }
 
     method p5metachar:sym<( )>($/) {
-        make QAST::Regex.new( $<nibbler>.ast, :rxtype<subcapture>, :node($/) );
+        make QAST::Regex.new( :rxtype<subcapture>, :node($/),
+            $<nibbler>
+                ?? $<nibbler>[0].ast
+                !! QAST::Regex.new( :rxtype<anchor>, :subtype<pass> ) );
     }
 
     method p5metachar:sym<[ ]>($/) {

diff --git a/src/QRegex/P5Regex/Grammar.nqp b/src/QRegex/P5Regex/Grammar.nqp
@@ -59,7 +59,7 @@ grammar QRegex::P5Regex::Grammar is HLL::Grammar {
         '(?' {} <assertion=p5assertion>
         [ ')' || <.panic: "Perl 5 regex assertion not terminated by parenthesis"> ]
     }
-    token p5metachar:sym<( )> { '(' {} <nibbler> ')' }
+    token p5metachar:sym<( )> { '(' {} <nibbler>? ')' }
     token p5metachar:sym<[ ]> { <?before '['> <cclass> }
 
     token cclass {